[求助]CGI::Session建立后如何判断Session为空？

haolian102

如题，在login页面建立了session之后，不论跳转到哪个页面，有要取session值，
如果未经session建立步骤，即login，直接用url登录后面的页面，session应该是一个空值。

问题：
1.大家在session里面保存的是什么内容？一个特殊的验证码，以后每个页面读出的session值与之相等就给予阅读权限？
还是保存用户名密码，每刷新或者进入一个页面都要DB里面验证一下用户名密码是否匹配？
2.未经login，直接进入后面的页面，我认为session应该是一个空值，但是我用

1. 
   
2. $s = CGI::Session->load() or die CGI::Session->errstr;
   
3.     if ( $s->is_expired ) {
   
4.         die "Your session expired. Please refresh";
   
5.     }
   
6.     if ( $s->is_empty ) {
   
7.         die "Your session empty. Please refresh";
   
8.     }
   

复制代码

这段代码，总是进不到第二个if里面，这是为何？
如何判断用户属于未登录直接进后边的页面？
PS：代码是CPAN上面复制的，自己改了一下is——empty
谢谢大家！

haolian102

$s = CGI::Session->load() or die CGI::Session->errstr;

这一行没写
但是现在添加上去之后，现在的完整代码是这样的

1. 
   
2. my $cgi = new CGI;
   
3. my $session = new CGI::Session("driver:File", $cgi ,{Directory=>'/tmp'});
   
4. $session = CGI::Session->load() or die CGI::Session->errstr;
   
5. my $usr_name = $session->param("usr_name");
   
6. my $rep_pn = $session->param("rep_pn");
   
7. 
   
8.     if ( $session->is_expired ) {
   
9.         print $session->header(),
   
10.             $cgi->start_html(),
    
11.             $cgi->p("Your session timed out! Refresh the screen to start new session!");
    
12.             $cgi->end_html();
    
13.         $session->delete();
    
14.         $session->flush();
    
15.         exit(0);
    
16.     }elsif ( $session->is_empty) {
    
17. 
    

复制代码

问题是现在每次登录进去之后都是进入 $session->is_empty这项，这又是为何啊？？？？

infernor

你对session的理解有点乱