Perl CGI 持久性 cookie

Question

即使浏览器关闭，我也希望用户不必登录。我的 cookie 设置为一个月后过期。

当用户登录成功时

 $session = CGI::Session->new (undef, undef, {Directory=>'tmp/'})
                                      or die CGI::Session->errstr;
                $session->param('username', $username);
                $session->expire('+1M');                
                $cookie = $cgi->cookie( -name=>$session->name, -value=>$session->id );
                print $cgi->header(-cookie=>$cookie );

然后，只要不关闭浏览器，它们就会被重定向到可以访问的另一个页面。这是第二页的代码：

my $cookie = $cgi->cookie('CGISESSID');
if ($cookie){
        print $cgi->header(-cookie => $cookie);
else{
       //ask them to relog in
}

我可以看到在 tmp/ 中创建的会话。关闭浏览器后如何加载现有的 cookie。我如何知道根据用户/浏览器加载哪个会话？

Answer 1

只要您为 Cookie 设置了未来的到期日期，即使在用户重新启动浏览器后（当然，只要它们在该日期之前重新启动），它们也应该持续存在。要加载 cookie，请执行您正在执行的操作：

my $cookie = $cgi->cookie('CGISESSID');

要尝试使用 cookie 加载现有会话，您只需将 CGI 对象传递给 CGI::Session 的 new 方法：

my $session = new CGI::Session(undef, $cgi, {Directory=>"/tmp"});

这将尝试使用随 CGI 请求传入的 cookie 初始化现有会话；如果不存在，它将创建一个新会话。请注意，这假定 cookie 名称为 CGISESSID。要使用其他名称，请运行：

CGI::Session->name("MY_SID");
# or
$session->name("MY_SID");

$session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'});

如果您还没有，我建议您阅读CGI::Session tutorial。

---

编辑：会话设置为一个月后到期

$session->expire('+1M');

但 cookie 不是。如果您没有对 cookie 设置过期时间，浏览器会将其存储在内存中而不是磁盘上；一旦您关闭浏览器，cookie 就会消失。要设置 cookie 过期时间，请执行以下操作

$cookie = $cgi->cookie( -name=>$session->name, -value=>$session->id, -expires=>'+1M' );