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;