cookies en Perl...Es Posible????

[monoswim]

Hola, amigos, les comento que estoy haciendo una función que mande cookies desde un script de perl pero me está volviendo realmente loco!!!!!!!!!!!!!!!!!!!!

Por ejemplo uso la función 3 veces seguidas y solo me manda una sola cookie y las otras no...

La función es esta:
sub set_cookie {

print "Set-cookie: $_[0]=$_[1];expires=$_[2];path=$_[3];domain=$_[4]\n";

}

Esta es otra forma que intenté pero me tiró los mismos resultados
sub set_cookie {
print 'Set-Cookie: ' . $_[0] . '=' . $_[1] . ';';
print ' expires=' . $_[2] . ';';
print ' path=' . $_[3] . ';';
print ' domain=' . $_[4] . ';';
print "\n";
}

Yo lo único que hago desde el script es llamar a esa función 3 veces , acá tienen el código:

&set_cookie('usuario',$input_data{'login'},'+1h',' http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');

&set_cookie('estado','on','+1h','http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');

&set_cookie('nombre',$user_data[6],'+1h','http://www.e-netsoft.com.ar/local-cgi/portal/','e-netsoft.com.ar');

En donde está el maldito error????
Se puede realmente hacer algo con cookies en perl y que funcione correctamente????

NECESITO VACACIONES!!!!!!!!!!!!!
Gracias
MonoSwim

[monoswim]

[boilmar]

Bueno hombre no te desesperes, seguro que tiene alguna explicación.

¿Cual te envía la primera o la última?

[monoswim]

El problema es que no la envia siempre...Simplemente lo hace a vecees y a veces no pero siempre si manda es la última

Me estoy volviendo loco o ese script me me lo hace a propósito para que quede así

MonoSwim

[boilmar]

No se bien a qué puede deberse, pero si le pasas parámetros diferentes a la misma subrutina ¿no será que escribe los datos sobre la misma cookie cada vez hasta que quedan los últimos parámetros que le pasas?. Es decir, borra y escribe tres veces sobre el mismo texto.

[monoswim]

La verdad es que no se que le pasa, para colmo me bajé un script para enviar cookies (www.scriptarchive.com) y usa todas las variables del modo local, con lo cual no lo puedo usar en mis scripts porque yo uso la sentencia USE STRICT, que solo permite variables my

Se puede tener el script en perl y mandar las cookies con php???

Alquien lo hiso alguna vez???

MonoSwim