my $arr;
%cookies = CGI::Cookie->fetch;
for (keys %cookies) {
$arr = ($cookies{$_});
}
@arr1 = split("=", $arr);
@arr2 = split(";", $arr1[1]);
$cgi_session = CGI::Session->load($arr2[0]);
print "Content-Type: text/html\n\n";
if ($cgi_session->is_expired) {
print "session expire\n";
}
else {
print "session valid\n";
}
会话被初始化为在 1 分钟后过期,但在检查是否过期时它总是进入 else。虽然会话实际上会过期,因为代码在一分钟后不起作用。我想检查是否过期将用户重定向到登录页面。