LWP Cookie取得

質問

恐れ入ります。
LWPで、特定サイトにアクセスした時に発行されるCookieを任意のディレクトリに保存したいのですが、どのようにしたらよいかわかりません。

use HTTP::Cookies;
use LWP::UserAgent;

$ua = LWP::UserAgent->new();

$cookie_file = './cookie/xxx.txt';
$cookie_jar = HTTP::Cookies->new(file => $cookie_file, autosave => 1);

$url = "http://～～";
$response = $ua->get($url);
print $response->content;

で、コンテンツは表示されますが、xxx.txtにcookieが保存されません。

#LWP-Cookies-1.0
のみが記載された白紙のxxx.txtが精製されます。

よろしくお願いします。

回答No.1

heburusu · ベストアンサー

こんにちわ。
UserAgentにCookieを設定していないからではないでしょうか？

$cookie_jarがnewされたままになっているので、
$ua->cookie_jar($cookie_jar);
ように設定してあげてみてはどうでしょうか？

参考URL：

http://perldoc.jp/docs/modules/libwww-perl-5.813/LWP/UserAgent.pod

お礼

ありがとうございます。無事保存されていました。