LWP::UserAgent
忘れないようにメモ
UserAgentを変更するという単純なメモ。
#!/usr/bin/env perl use strict; use LWP::UserAgent; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->agent("Mozilla"); sub main { my $url = "http://ja.wikipedia.org/"; my $req = HTTP::Request->new(GET=>$url); my $res = $ua->request($req); return if(!$res->is_success); # success my $content = $res->content; print $content; } &main; 1;