Hola pues esta es otra función que también me encontré por ahí y la modifiqué para que fuera más funcional.
Esta función lo que hace es escribir en el navegador o leer de él, cookies para despues usarlas en lo que gustes.
El código es este:
PERL:
-
sub set_cookie { #funcion para escribir cookies
-
my ($name, $value, $expiration, $path) = @_; #recibimos los parametros enviados (nombre de la cookie, su valor, tiempo de vida, direccion)
-
print '<meta http-equiv="Set-Cookie" content="'.$name.'='.$value.';expires='.$expiration.'; path='.$path.'">'; #escribimos la cookie en los headers del navegador
-
}
-
-
sub get_cookie { #funcion para leer cookies
-
{
-
$return_cookie{$key} = $val;
-
}
-
return (%return_cookie); #nota: esta funcion regresa todas las cookies con vida, ya despues tu eligiras cual usar.
-
}
-
1;
y la manera de usarse es esta:
(continue reading...)
