[Cascavel-pm] "Carregar" session id.

[Otávio Fernandes]

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
 | --