perl - 如何在许多 WWW::Mechanize 运行中维护 cookie？

Question

use WWW::Mechanize;
use strict;
my $agent = WWW::Mechanize->new(cookie_jar => {ignore_discard => 0});
$agent->add_header('User-Agent' => 'Mozilla/5.0 (X11; Ubuntu; Linux x86_64; rv:20.0) Gecko/20100101 Firefox/20.0');
$agent->get($url);
my $content = $agent->content;

Answer 1

该cookie_jar属性需要一个HTTP::Cookies对象。

WWW::Mechanize->new(
    cookie_jar => HTTP::Cookies->new(
        file => 'lwp_cookies.dat',
        autosave => 1,
    )
)

您的错误是声明了一个普通的 hashref，这意味着在 Mechanize 结束后销毁的临时内存 cookie 存储。