cookies

[eial]

Mira flaco si estas tratando de gurdar y leer una cookie en perl, no te funciona lo que utilizas porque nada tiene que ver o casi nada.

$user_ip = $ENV{'REMOTE_ADDR'}; # No lee cookie solo obtiene el ip que manda en el encabeado el browser al server

print 'Set_Cookie:usuario_id=1005;'; # esta mal echo.

Primero para establecer una cookies debes hacerla ante que cualquier otro encabezado o sea antes que "text/html" y la sintaxis es esta:

print 'Set-cookie: nombre=valor; path=/;' . "\n\n";

El path es importante para ie, sino vas a tener problema.

para leer toda las cookies, la variable de entorno es:

$cookie = $ENV{'COOKIE'} || $ENV{'HTTP_COOKIE'};

Esto te devuelve toda las cookies para ese server.

dos cosas:

*- recorda que el nombre y valor deben ir en formato escape, por lo tanto para leerlo tambien debes traducirlo de escape a normal.

Espero que te sirva y suerte.