session删除问题,求助！！

QUOTE:

原帖由 chopper7278 于 2008-4-7 16:34 发表
最近在写perl程序，运用了CGI::session模块。由于每次打开一次画面，session纪录就会增加一条，时间长了，数据量也大。。
点logout按钮都是可以通过代码$session->delete();来删除，但是关闭窗口的时候怎么删除 ...

QUOTE:

原帖由 chopper7278 于 2008-4-7 17:16 发表
$session->expire('+30s');
我试过这个貌似没删除。。。help

QUOTE:

原帖由 chopper7278 于 2008-4-8 15:30 发表
恩恩 对。。消失的只是cookies中的值。如果是按照访问次数来删除的话，感觉也有问题。。。
假如有1个人在开网页，生成了一个新的sessionid文件，这时候第2个人上来开网，正好达到纪录数，session文件里全部清除 ...

QUOTE:

原帖由 chopper7278 于 2008-4-7 17:16 发表
$session->expire('+30s');
我试过这个貌似没删除。。。help

CODE:

       find( \&code )

       find( $dsn, \&code )

       find( $dsn, \&code, \%dsn_args )

       Experimental feature. Executes \&code for every session object stored in disk, passing initialized CGI::Session
       object as the first argument of \&code. Useful for housekeeping purposes, such as for removing expired sessions.
       Following line, for instance, will remove sessions already expired, but are still in disk:

       The following line, for instance, will remove sessions already expired, but which are still on disk:

           CGI::Session->find( sub {} );

       Notice, above \&code didn't have to do anything, because load(), which is called to initialize sessions inside
       find(), will automatically remove expired sessions. Following example will remove all the objects that are 10+
       days old:

           CGI::Session->find( \&purge );
           sub purge {
               my ($session) = @_;
               next if $session->is_empty;    # <-- already expired?!
               if ( ($session->ctime + 3600*240) <= time() ) {
                   $session->delete() or warn "couldn't remove " . $session->id . ": " . $session->errstr;
               }
           }

       Note: find will not change the modification or access times on the sessions it returns.