我的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;