Perl - 重定向和设置 cookie 时的重定向循环

Question

我是一个 Perl 新手，我被这个问题困住了:

我有一个 _login.cgi 脚本，它管理登录并在凭据正确时重定向到 index.cgi 页面:

if (functions::check_credentials($input{"username"}, $input{"password"}) eq true ){

$session = new CGI::Session("driver:File", undef, {File::Spec->tmpdir});
$session->param("name", "Carcarlo Pravettoni");

$cookie = $page->cookie(CGISESSID => $session->id);
print $page->redirect( -URL => "index.cgi" -cookie=>$cookie);

} else {...}

但是当我使用正确的凭据尝试时，我得到了一个指向 _login.cgi(这个脚本本身)的无限重定向循环。

相反，如果我不使用重定向发送 cookie，则一切正常:

if (functions::check_credentials($input{"username"}, $input{"password"}) eq true ){

$session = new CGI::Session("driver:File", undef, {File::Spec->tmpdir});
$session->param("name", "Carcarlo Pravettoni");

$cookie = $page->cookie(CGISESSID => $session->id);
print $page->redirect( -URL => "index.cgi");

} else {...}

Answer 1

这里有错字("index.cgi" 后缺少逗号):

print $page->redirect( -URL => "index.cgi" -cookie=>$cookie);

我建议您启用 strict和 warnings (可能还有 diagnostics )，并重构代码直到没有错误/警告。