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，这意味着一个临时的内存 cookie 存储在 Mechanize 结束后被销毁。