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 ストアを意味します。