« ユーザ認証を要するページにperlでアクセス | メイン | perl でリンクを抽出する »
2004年08月02日
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};
投稿者 augustus : 2004年08月02日 21:24