perl CGI::Session

 

用於認證

eg: ligin

 

my $session = new CGI::Session( "driver:File", $cgi, { Directory => '/tmp' } ); #保存session
print $session->header()

#my $cookie = $cgi->cookie( CGISESSID => $session->id );
#print $cgi->header( -cookie => $cookie );;

$session->param( 'f_name',   $u ); #保存變量
$session->param( 'f_passwd', $p ); #保存變量
$session->expire('+1h');

eg：其它頁面認證

my $cgi       = new CGI;
my $session   = new CGI::Session( "driver:File", $cgi, { Directory => '/tmp' } ); #讀session
my $strName   = $session->param("f_name"); #取
my $strPasswd = $session->param("f_passwd"); #取

 

後面作頁面認證判斷