[SP-pm] Utilizando sessão em perl

[Murilo Opsfelder Araújo]

Para exemplificar, fiz o session1.pl e o session2.pl.

Não consigo recuperar (dentro do session2.pl) os dados da sessão
iniciada em session1.pl. Sempre é gerada uma nova sessão dentro de
session2.pl.

Vejam os códigos.

$ cat session1.pl
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Session;

my $q = CGI->new();
my $session = CGI::Session->new( "driver:File", undef, { Directory =>
"/tmp" } );

print $q->header();

# obtem o id da sessao
my $CGISESSID = $session->id();
print "CGISESSID #", $CGISESSID, "#\n";

# atribui um parametro e um valor
$session->param( "name", "Murilo Opsfelder" );

# obtem um valor da sessao atual
my $name = $session->param( "name" );
print "session1<br>\n";
print "session id #", $CGISESSID, "#<br>\n";
print "name #", $name, "#<br>\n";

# remove a sessao atual
$session->delete();

__END__


$ cat session2.pl
#!/usr/bin/perl

use strict;
use warnings;
use CGI;
use CGI::Session;

my $q = CGI->new();
my $session = CGI::Session->new( "driver:File", $q, { Directory => "/tmp" } );

my $CGISESSID = $session->id();

print $q->header();
print "session2<br>\n";
print "session id #", $CGISESSID, "#<br>\n";
print "name #", $session->param( "name" ), "#<br>\n";

__END__

Não era pro session2.pl ler os valores dos parâmetros iniciados na
sessão de session1.pl?

-- 
Murilo Opsfelder Araújo
sysadmin and perl programmer