Como uso Cookies en perl !!!!!!!!!!!!!!!!!!

[dix10]

Hola

Alguien me puede explicar como uso cookies en perl, ninguna funcion de las que uso funca...

$ck = $q->cookie( -name=>'nombreCookie',
-value=>'valor',
-expires=>'+1h');

print $q->header( -cookie=>$ck );

Saludos

[oscar_sosa]

que te parecen estas:

#- Set Cookie -----------------------------------------------------------------#
sub setCookie {

local($name, $value, $expiration, $path, $domain) = @_;

print "Set-Cookie: ";
print "$name=$value; expires=$expiration; path=$path; domain=$domain";
print ";$secure" if defined($secure);
print "\n";
}
#------------------------------------------------------------------------------#


#- get Cookies from ENV --------------------------------------------------#
sub getCookies {

my(%cookies);

foreach (split(/;/,$ENV{'HTTP_COOKIE'})){
my($key)=split(/=/,$_);

$cookies{$key}=substr($_, index($_,"=")+1);
}
return(%cookies);
}
#------------------------------------------------------------------------------#


saludos!...

--
Oscar Américo Sosa de la Cerda
[email protected]
<a href="http://www.sysmakers.com" target="_blank">Sys Makers Dot Com</a>
Develop it!

[dix10]

Hola

Gracias por la respuesta,, por lo que veo (si no me equivoco) para usar lo que mostras aca no necesito el modulo cgi,,,porque estoy usando cookie, pero solo con el module CGI y sus parametros ..y se lia un poco..

Saludos