Perl 我的CGI脚本cookie设置和获取

我在CGI上有一个网站，昨天运行良好，但突然它的cookie停止工作。我无法在脚本中设置cookie和获取cookie。下面是我的代码

设置cookie

#!/usr/bin/perl
use CGI::Carp qw (fatalsToBrowser);
use CGI;
require "cookie.lib";
&SetCookies('V', $EncUID);

吃饼干

#!/usr/bin/perl
use CGI::Carp qw (fatalsToBrowser);
use CGI;
require "cookie.lib";
&GetCookies();
my $UID = $Cookies{"V"};

---

请帮我解决这件事。

哇，突然之间就像199x一样，一切都结束了。将

cookie.lib

替换为

---

---

谢谢你的帮助。我的问题已修复我已将cookie.lib替换为新文件当前文件太旧，现在可以正常工作我假设您在将代码移动到生产web服务器时删除了“fatalsToBrowser”。

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use CGI::Cookie qw();

print CGI::header(-cookie => [CGI::Cookie->new(-name => 'V',-value => $EncUID)]);

#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
use CGI;
use CGI::Cookie qw();

my %cookies = CGI::Cookie->fetch;
my $UID = $cookies{'V'}->value;