我的 CGI 脚本 cookie 设置和获取

Question

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

设置cookie

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

获取cookie

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

请帮助我解决这个问题。

Answer 1

哇，突然像 199 倍一样。将cookie.lib 替换为CGI::Cookie。

#!/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;