[Cascavel-pm] "Carregar" session id.
Otávio Fernandes
otaviof em gmail.com
Quarta Janeiro 30 05:33:18 PST 2008
Rafael, bom dia,
Nao vejo erros na utilizacao do session ID. Durante a execucao do seu
codigo apenas corrigi um erro:
otavio em nexus6:/tmp$ perl lembrao.pl
Use of uninitialized value in string at lembrao.pl line 16.
print() on closed filehandle SID at lembrao.pl line 21.
Depois de corrigir, o seu codigo ficou assim:
#!/usr/bin/env perl
use warnings;
use strict;
use CGI qw ( :standard );
use CGI::Session qw/-ip-match/;
use Data::Dumper;
my $file = '/tmp/teste_sid.txt';
open( my $SID, '>', "$file" );
my $path_sessoes = '/tmp';
my $login;
my $session = new CGI::Session( "driver:File", undef,
{ 'Directory' => $path_sessoes } );
$session->param( 'teste_tmg', $login );
$session->param( '_IDLE_EXPIRY' => time + 1800 );
$session->expire('+1d');
print Dumper $session;
my $sid = $session->id();
print $SID $sid, "\n";
close($SID);
__END__
E o conteudo do arquivo é:
otavio em nexus6:~/Sources/Perl/Examples$ cat /tmp/teste_sid.txt
e5e2d2806ca44635980d24ef2dd94a13
Portanto, acredito que voce soh tem que revisar o codigo com um pouco
mais de atencao e verificar os erros que o interpretador te retorna.
Eh uma boa oportunidade de melhorar a sua identacao e utilizar o
Perltidy (com as opcoes -pbp e -ce) e o Perl Critic.
Atenciosamente,
--
| --
| Otávio Fernandes < otaviof | gmail | com >
| FreeBSD 7.0-PRERELEASE && GNU/Linux User: 283.396
| (( Especial Programação )) http://geekbr.podcastbrasil.com/ -- 0.15
| --
Mais detalhes sobre a lista de discussão Cascavel-pm