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"); #取
后面做页面认证判断
页:
[1]