PC Memorandum of augustus

perl で cookie を取得

perl で web ページにアクセスするとき、クッキーを取得したいときもあるだろう。そういうときは HTTP::Cookies モジュールを使えばよい。
以下の例のようにするとページのソースが表示されるとともに、クッキーが指定されたファイルに保存される。

use LWP;
use HTTP::Cookies;

$url="http://www.amazon.co.jp/"; #アクセスする URL
$file="cookies_amazon.txt";      #クッキーを保存するファイル

$browser = LWP::UserAgent->new;
$browser->cookie_jar({file =>$file, autosave=>1 });
$response = $browser->get($url);
print $response->{_content};

Posted by augustus at 2004年08月02日 21:24