HTTP Cookies

  #!/usr/bin/perl

use CGI; #chamo o módulo CGI
use CGI::Cookie; #dentro dele, chamo o módulo do cookie

$cgi = new CGI;

if ($cgi->cookie('meu_cookie')) { #caso o cookie exista, imprimo

print "Content-type: text/html"; #tipo de documento: HTML
print "Cookie ativo!
";
print $cgi-cookie('meu_cookie'); #meu cookie

} else { #se não existe, ele grava

$cookie = $cgi->cookie( -name=>'meu_cookie', -value=>"Estou gravado!", -expires=>"+2m"); #gravando o cookie chamado de 'meu_cookie' com o valor de 'Estou gravado' e expirando em 2 minutos.
print $cgi->header( -cookie=>$cookie ); #imprimo o cookie no navegador
print "Gravando cookie.... ok, salvo!
Atualize seu navegador";

} #fecho o else  

  -domain => '.codigofonte.net'  

  -path => '/cgi-bin/scripts'  

  /cgi-bin/scripts  

  -secure => '1'  

   #!/usr/bin/perl

foreach (split(/; /,$ENV{'HTTP_COOKIE'})) {
$_ =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
($nome,$valor) = split(/=/); $COOKIE{$nome} = $valor;
}

if ($COOKIE{'meu_biscoito'}) { #caso o cookie exista, imprimo

print "Content-type: text/html"; #tipo de documento: HTML
print "Cookie (biscoito) ativo!
";
print "$COOKIE{'meu_biscoito'}"; #meu cookie

} else { #se não existe, ele grava

print "Set-Cookie: meu_biscoito=ESTOU GRAVADO VIU?!; expires=+2m ;";
print "Content-type: text/html"; #tipo de documento: HTML
print "Gravando cookie.... ok, salvo!
Atualize seu navegador";

} #fecho o else

  

  name, value, expires  

  domain = '.codigofonte.net'  

  path = '/cgi-bin/scripts'  

  /cgi-bin/scripts  

  secure = '1'  

  $cookie = $cgi->cookie( -name=>'meu_cookie', -value=>"Estou gravado!", -domain => '.codigofonte.net', -expires=>"+2m");

2. [cf] print "Set-Cookie: meu_biscoito=ESTOU GRAVADO VIU?!; domain = '.codigofonte.net'; expires=+2m ;"; 

 +1m </i> [cf] para o cookie expirar daqui a 1 minuto. Caso queria que o cookie expire agora, utilize o código [cf]now  </i>