Perl 脚本不在谷歌浏览器上保存 cookie？

Question

我正在尝试学习使用 Perl 处理 cookie。以下是我的代码。但我不知道为什么 cookie 没有保存在 chrome 中。每次我运行这个脚本时都会创建一个新的 cookie。

#!"C:\wamp\perl\bin\perl.exe" -w
print "Content-type: text/html\n\n";
use CGI::Carp qw( fatalsToBrowser );
use CGI;

my $q=new CGI;
$value=$q->cookie('lol');

$cookie=$q->cookie
(
-name=>'lol',
-value=>'gh',
-expires=>'+7d'
);

print $q->header(-cookie=>$cookie);

$q->start_html
(
-title=>'CGI.pm Cookies'
);

unless($value) {print "cookie is goint to set";}
else {print "Hi $value";}

$q->end_html;
exit;

Answer 1

这是您的脚本的输出:

Content-type: text/html

Set-Cookie: lol=gh; path=/; expires=Sat, 04-May-2013 11:16:12 GMT
Date: Sat, 27 Apr 2013 11:16:12 GMT
Content-Type: text/html; charset=ISO-8859-1

cookie is goint to set

您发送 Content-Type两次响应 header :第一次在第 2 行，然后在第 16 行打印 $q->header(-cookie => $cookie) .

实际上，第 2 行的双换行符结束了您的 HTTP header 。所以 $q->header(-cookie => $cookie) 的输出将被视为文档正文内容，而不是 HTTP header 。

最快的解决办法？ 注释掉第 2 行 .