为什么我的刷新标题不起作用？

Question

我正在使用 CGI.pm 模块在 Perl CGI 中完成家庭作业。在我的代码中，我正在检查 cookie。如果 cookie 存在，我想启动另一个 CGI 脚本。在其他情况下，我可以使用类似的代码，但在这种情况下，我只得到以下浏览器输出，而不是我正在寻找的重定向。

Refresh: 1; URL=homepage.pl.cgi
Content-Type: text/html; charset=ISO-8859-1

这是我的代码：

#get the cookie
my %SIDhash = cookie('SIDhash');

if ( exists $SIDhash{"SID"} ) {
    print header(-refresh=>'0; homepage.pl.cgi');
}

我在这里不理解哪些基本原理？

谢谢， CB

Answer 1

这应该可以解决问题：

print header(
    -refresh => '0; url=homepage.pl.cgi',
    -cookie => $cookie,
);

如果您要在代码中的各个位置将标头分段组装，请首先将标头组件保存在变量中，例如：

my %headers;

# later...
$headers{-cookie} = $cookie;

# later still:
if (exists $SIDhash{SID})
{
    # we want to redirect, so print all headers and we're done.
    print header(%headers, -refresh => '0; url=homepage.pl.cgi');
    exit;
}

# if we're still here, nothing is printed yet.. continue preparing data and print when ready.
# ...

Answer 2

我不确定为什么你的刷新不起作用，但听起来使用它会更合适：

HTTP/1.1 302 Found
Location: http://www.example.org/

只是一个想法。

Answer 3

尝试将行更改为

print header(-refresh=>'0; url=homepage.pl.cgi');

据我所知，现在应该是正确的。

维基百科上的此页面提供有关刷新和其他重定向方法的信息。