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"); #取

 

后面作页面认证判断