如何在许多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结束后被销毁。