LWP::UserAgent をちょこっと使うための雛形
2007-06-10-2
[Programming]
自分用メモ。
lwpcook (http://homepage3.nifty.com/hippo2000/perltips/lwpcook.html)
にあるサンプルプログラムにちょこっと追記したもの(ほぼ同じ)。
lwpcook (http://homepage3.nifty.com/hippo2000/perltips/lwpcook.html)
にあるサンプルプログラムにちょこっと追記したもの(ほぼ同じ)。
#!/usr/bin/perl use strict; use warnings; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->agent("Mozilla/8.0"); my $req = HTTP::Request->new(GET => 'http://example.com/'); $req->header('Accept' => 'text/html'); my $res = $ua->request($req); if ($res->is_success) { print $res->content; } else { print "Error: " . $res->status_line . "\n"; }
この記事に言及しているこのブログ内の記事