Perl CGI Session,要求加精

sessior

如果你是PERL高手，请联系我，我是一家美资猎头。目前受一家世界级的软件公司委托找寻Senior Unix Developer，需要懂PERL，熟悉HTML, CGI, XML，熟悉webservers或sockets等等。薪资优厚。如有意者请加MSN:sessior@hotmail.com或致电13916394366陈先生

sosogh

最近看到很多帖子都是关于Perl CGI Session的使用的,在此算是统一回复罢

正确的代码如下(1.pl)


(2. ...
superdoctor 发表于 2005-01-13 15:08

假如web client请求2.pl的时候，并没有向2.pl提交sid，或者提交一个错误的sid，那么tmp目录下不是会建立了好多多余的session data file？

engrol

只要懂了session的工作流程和CGI的工作过程。

CGI::Session是不难使用的。在CGI程序中，每次要恢复session，我的恢复session程序是这样写的。

1. 
   
2. sub restore_session
   
3. {
   
4.    my $cookies = fetch CGI::Cookie;
   
5.    my $s       = $cookies->{'sessionid'};
   
6.    my ($tmpid, $tmpsession);
   
7.    my $domain;
   
8.    $tmpid  = $s->value() if $s;
   
9.    return 0 if($tmpid eq '');
   
10.    $tmpsession   = CGI::Session->load($tmpid);
    
11.    return 0 if !defined($tmpsession);
    
12.    return 0 if $tmpsession->is_expired();
    
13.    return 0 if $tmpsession->is_empty();
    
14.    $sessionid = $tmpid;
    
15.    $session   = $tmpsession;
    
16.    return 1;
    
17. }
    
18. 
    

复制代码

加入了判断是否过期的代码，恢复sessionid和session两个变量。
在后面的应用中，只需要判断session是否为空，不为空就取参数值即可。

2gua

我比较关注session有时候会异常丢失的解决方案。

兰花仙子

我比较关注session有时候会异常丢失的解决方案。
2gua 发表于 2010-02-11 18:21

just by guess:

1. 服务器采用集群模式，而调度器又没有准确的保持session持续性。
2. session文件损坏或丢失。
3. session放在数据库的话，有可能数据库异常而导致无法读取。

总的来说我还没碰到过。
但有个问题是session文件的清理，目录下sess_文件会越来越多，还要搞个脚本定期清理。