[SP-pm] Utilizando sessão em perl
Murilo Opsfelder Araújo
mopsfelder em gmail.com
Quarta Agosto 22 17:39:18 PDT 2007
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
Mais detalhes sobre a lista de discussão SaoPaulo-pm