在Perl中使用Cookie

Question

我想在Perl中使用Cookie，但我遇到了问题。 这是我的代码：

use LWP::UserAgent;
use HTTP::Cookies;
$xpl = new LWP::UserAgent(agent => 'Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.8.0.5) Gecko/20060719 Firefox/1.5.0.5');
$req = HTTP::Request->new(GET => 'http://example.com') or die "\n\n Failed to Connect, Try again!\n"; 
my $cookie_jar = HTTP::Cookies->new(file => 'cookie.txt');
$xpl->cookie_jar($cookie_jar);
$res = $xpl->request($req);
print $xpl->request($req)->as_string;

，cookie.txt的内容为：0fea8e55a89187d306d7db060b7b9ab7。当我运行此代码时，我收到此警告：cookie.txt似乎不包含F：/Perl/lib/HTTP/Cookies.pm第432行第1行的cookie。

我该怎么办？ 提前致谢 。

Answer 1

cookies.txt的内容应该是由HTTP::Cookies生成的文件，用于描述Cookie名称，值，域和过期。你给它的文件不是它使用的格式，所以它没有被加载。