Foro - Perl en Español

Yo interpreto los mensajes de error como que no ha funcionado el new() de CGI::Session. Con el método de clase errstr() se puede saber qué ha pasado.

Ponlo así:

$session = CGI::Session->new() or die CGI::Session->errstr();

De todas maneras... no es obvio el manejo de todo esto.

Al final, sí que se trata de poner unas pocas líneas... pero... hay que aprender media docena de conceptos, para poder saber qué líneas y en qué orden deben ponerse. Y que no es lo mismo crear una sesión, que acceder a los parámetros almacenados en la sesión. Y cómo resolver esto en un solo código (lo normal) o en varios. O la forma de almacenar las sesiones (¿será una cookie o en el URL? ¿se almacenará en un archivo de texto o en una base de datos SQL?)

No queda más que leer los tutoriales, y ver los ejemplos.

Aquí hemos hablado unas cuantas veces del tema:

• Problema al cerrar sesión (CGI::Session)
• Problema con sesiones en CGI::Session

Los ejemplos que has puesto no siguen la recomendación de cómo iniciar el manejo de las sesiones.

Quiero decir, el módulo CGI::Session permite hacer y manejar sesiones de muchas formas, y eso es lo que lo lía: en lugar de dar un método sencillo, primero explica todos los detalles, y uno se lía entre el new() y el load(). Luego se mira el tutorial y empieza a entender "algo". Pero es lioso. Si lees lo que hace new(), piensas que sirve para crear una sesión, o recrearla, pero no es hasta el final de new() cuando lo explica.

Y finalmente, el cookbook, para ver ejemplos concretos, y por fortuna, alguno se ajustará a lo que se necesita.

Ahí se recomienda, por ejemplo, que, para simplificar, todos los programas empiecen así:
(Naturalmente, si no queremos guardar las sesiones en '/tmp', debemos personalizar la última línea).

Eso lo que hace es crear la sesión si antes no existía, o recrear la sesión si existía. Con la ayuda del objeto $cgi creado por el módulo CGI, CGI::Session es capaz de distinguir los dos casos.

Y luego, cuando el programa esté preparado para sacar el resultado, se puede mandar el ID de sesión por medio de una cookie (aunque hay más formas, claro):

Así que... tanto rollo para al final ser cuatro líneas.

Bueno, en realidad no es tan simple. Tuve que hacer pruebas para ver que las sesiones se creasen -y caducasen- de forma correcta. Y, a veces, decantarme por la solución propuesta en load() para detectar sesiones expiradas e informar al usuario de tal evento.

P.D.: la tecnología CGI está desapareciendo del mundo Perl, en favor de Mojolicious, Dancer, Catalyst... que ocultan mucho de esta complejidad.

• tienes dos veces un 'use CGI'. Te sobra el primero.
• usar print "Content-type: text/html\n\n"; es una barbaridad estando usando el módulo CGI. De hecho, esa línea sobra, ya que lo que hace ese print es lo mismo que hace la línea print $session->header();, pero esta segunda línea es mejor porque se envía la cookie creada antes.
• creas una cookie con el nombre de sesión e id, pero... no es necesario: la sesión ya guarda esos datos. No necesitas entonces ninguna cookie. De hecho, luego no haces nada con ella.
• en el primer script estás guardando siempre los mismos parámetros porque no haces control de si ya están puestos. Supongo que lo habrás hecho para hacer pruebas.

Según lo que veo es correcto: es necesario ejecutar el primer programa para crear los parámetros de la sesión. Mejor dicho: crear la sesión. La información de qué sesión es se guarda en el lado del usuario (quizás una cookie) y los parámetros de la sesión en el servidor.

No sé muy bien qué es lo que quieres hacer.

Por favor, te aconsejo que te leas, con calma, este mensaje: Control de acceso CGI::Session Aunque está centrado en el control de acceso de usuarios, da una visión muy buena de cómo usar CGI::Session, con cookies, sin cookies, con control de sesiones, sesiones expiradas, etc.

Y acostúmbrate a rodear tu código Perl con las marcas de código. Será más fácil de leer.