Использование Cookie в Perl

Question

Я хочу использовать Cookie в Perl, но у меня есть проблема.это мой код:

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.

что я собираюсьделать ?Заранее спасибо .

Answer 1

Предполагается, что содержимое cookies.txt представляет собой файл, сгенерированный HTTP::Cookies, описывающий имена файлов cookie, их значения, домены и срок действия.Файл, который вы даете, не в том формате, в котором он используется, поэтому он не загружается.