Perl cgi:：cookies需要返回错误

我正在将CGI:：Cookie用于会话Cookie。如果cookie不存在或过期，我想返回一个错误。我的东西坏了。有什么想法吗

my %cookies = CGI::Cookie->fetch;
my $cookieID = $cookies{$session_key}->value || error("Your session has   ended. Please logon again");

---

根据您的评论，您应该检查

$cookies{$session\u key}

my $session_id_cookie = $cookies{$session_key}
   or error("Your session has ended. Please logon again");

my $session_id = $session_id_cookie->value();

---

根据您的评论，您应该检查

$cookies{$session\u key}

my $session_id_cookie = $cookies{$session_key}
   or error("Your session has ended. Please logon again");

my $session_id = $session_id_cookie->value();

此代码适用于：

my %cookies = CGI::Cookie->fetch;
if ( $session_key == $cookies{$session_key}){  } else{ $session_key=""; error("Your session has ended. Please logon again"); exit; }

感谢您的帮助。

此代码适用于：

my %cookies = CGI::Cookie->fetch;
if ( $session_key == $cookies{$session_key}){  } else{ $session_key=""; error("Your session has ended. Please logon again"); exit; }

---

谢谢您的帮助。

“不起作用”不够具体。这段代码在做什么？您希望它做什么？当使用调试时，我得到了这样一个结果：无法在以下位置对未定义的值调用方法“value”。。。否则，如前所述，我想返回我的错误页面：您的会话已结束…您没有使用“cgi:：cookies”。您的代码清楚地表明您正在使用“CGI:：Cookie”。像这样的信息很重要。如果你不愿意费心去获取这样的信息，那么为什么有人要花时间来帮助你呢？此外，自1994年以来，在Perl中的子例程调用上使用

&

就没有必要了。你从哪里得到如此过时的建议？分数！！！看起来你能破解这个问题。但显然没有人能找到解决办法。“不起作用”还不够具体。这段代码在做什么？您希望它做什么？当使用调试时，我得到了这样一个结果：无法在以下位置对未定义的值调用方法“value”。。。否则，如前所述，我想返回我的错误页面：您的会话已结束…您没有使用“cgi:：cookies”。您的代码清楚地表明您正在使用“CGI:：Cookie”。像这样的信息很重要。如果你不愿意费心去获取这样的信息，那么为什么有人要花时间来帮助你呢？此外，自1994年以来，在Perl中的子例程调用上使用

&

就没有必要了。你从哪里得到如此过时的建议？分数！！！看起来你能破解这个问题。但显然没有人有解决方案。在测试了你的代码后，浏览器会反复打印：内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html这是个问题吗？没有。但你的回答帮我解决了这个问题。谢谢。在测试完你的代码后，浏览器会反复打印：内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html内容类型：text/html这是个问题吗？不是。但是你的回答帮我解决了这个问题。谢谢