Olá Pessoal,<br><br clear="all">Estou utilizando o módulo CGI:session para controlar sessão em uma aplicação que estou desenvolvendo. Eu uso dados do usuário que estão no Banco de dados e coloco na sessão para que em eventuais casos eu precise desses dados, como por exemplo controlar funcionalidades que determinado usuário pode ter acesso ou em inserção de dados oriundos dos formulários de cadastro do sistema ficarem registrados para aquele usuário.<br>
<br><br><br>sub StarSession<br>{<br>    $id   =shift;<br>    $name =shift;<br>    $email=shift;<br>    $level=shift;<br>    if(@_)<br>    {<br>        $id{id}  =$_[0];<br>        $name{name}  =$_[1];<br>        $email{email}=$_[2];<br>
        $level{level}=$_[3];<br>    }<br>   <br>    $CGISESSID = $session->id();<br>    $session->load();<br>    $session->param(-name=>'iduser',-value=>"$id");<br>    $session->param(-name=>'name'  ,-value=>"$name");<br>
    $session->param(-name=>'email' ,-value=>"$email");<br>    $session->param(-name=>'level' ,-value=>"$level");<br><br>    $session->expire(3600);<br>    $session->flush();<br>
<br>    return 'Ok';<br>}<br><br># A única coisa que sei é que posso recuperar dados da seguinte forma<br><br>sub valid<br>{<br>    if($session->param('iduser') ne '' && $session->param('name'))<br>
    {<br>        @dados=();<br>        push (@dados,$session->param('iduser'));<br>        push (@dados,$session->param('name'));<br>        push (@dados,$session->param('email'));<br>        push (@dados,$session->param('level'));<br>
        push (@dados,'Ok');<br>        return @dados;<br>    }<br>    else<br>    {<br>        @dados=();<br>        push (@dados,'False');<br>        return @dados;<br>    }<br>}<br><br>A minha dúvida é: Como posso recuperar esses dados na sessão de qualquer
 "lugar" (arquivos)? Se eu instanciar um objeto do CGI::Session eu consigo esses mesmos dados? Ou se alguém tiver uma outra solução mais simples e
 poder me sugerir.<br><br>Abraços.<br><br>-- <br><div style="font-family:'Lucida Grande',Geneva,Verdana,Arial,Helvetica,sans-serif;line-height:21px"><span style="font-family:arial;line-height:normal"><span style="font-family:sans-serif;line-height:19px"><b></b></span></span></div>
<div style="font-family:tahoma,sans-serif;line-height:21px"><div>
<span style="font-size:13px;line-height:21px"><div><span style="font-size:13px;line-height:21px">.: Inteligência Coletiva :.</span></div>Uma
 inteligência distribuída por toda parte: tal é o nosso axioma inicial. 
Ninguém sabe tudo, todos sabem alguma coisa, todo o saber está na 
humanidade’. (</span><span style="font-size:13px;line-height:21px">Pierre Lévy)</span>
</div></div><div><a href="http://www.bioinfopop.ufv.br" target="_blank">www.bioinfopop.ufv.br</a><br><span style="font-family:tahoma,sans-serif"></span></div><div style="display:inline"></div><br>