Perl cookie问题

Question

我在perl上写了一个http会话管理器，会话管理器必须将cookie写入用户浏览器，当我在firefox 4上测试它时，它工作正常，并且cookie被写入浏览器，chrome和IE似乎拒绝某些cookie原因，我做了一次检查，但没有用，我的cookie显示如下：

Set-Cookie:session=nSwbgFp5suScOMjmDMVNxv4EQLJpDat7YanRJGfM3hrvbjCCprUvocU4HxiR4Tk_VUAV6hE68zlriRvX0CeC4Ytk1DJc8IhCn_4C;expires=Sat, 2011 年 5 月 14 日 10:10:56 GMT

我注意到了一些事情，如果我将 cookie 配置为 1 天后过期。它适用于所有浏览器，但一小时后就不适用于 IE 和 Chrome。 如果有人知道如何在 IE 或 Chrome 中嗅探 cookie，请告诉我。我的意思不是使用网络嗅探器。因为我确信 cookie 会发送到 browser 。我的意思是与浏览器有关的东西。

提前致谢。

---

my ($key, $value) = @_;
my (@cookies, $k, $v, $r, $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst);
my @chars = ('a' .. 'z', 'A' .. 'Z', '0' .. '9', '_');
my @weekday = ('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat');
my @month = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
$r = '';
foreach (1 .. 100) {$r .= $chars[rand @chars]}
## Calculate the expiration date of the session
($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = gmtime(time() + $::session_life);
$year = $year + 1900;
$mon  = $month[$mon];
$wday = $weekday[$wday];

## Generate cookies
print("Set-Cookie:$::session_cookie_name=$r;" . "expires=$wday, $mday-$mon-$year $hour:$min:$sec GMT;\n");

Answer 1

• 在 Chromium 中，菜单 → 工具 → 开发人员工具 (Ctrl+Shift+I)。
• 在 Opera 中，菜单 → 页面 → 开发人员工具 → Dragonfly (Ctrl+Shift+I)。
• 对于 Internet Explorer，请参阅开发人员工具栏。

---

时间计算错误。使用库 CGI::Cookie 生成符合标准的 cookie 标头。

use CGI qw();
use CGI::Cookie qw();

my $cgi                 = CGI->new;
my $session_cookie_name = …;
my $r                   = …;

print $cgi->header(
    -type   => 'text/plain',
    -cookie => CGI::Cookie->new(
        -name    => $session_cookie_name,
        -value   => $r,
        -expires => '+2h',
    ),
);