HTTPでGET その2
Posted feedbacks - Perl
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | #!/usr/bin/perl
use strict;
use warnings;
use LWP::UserAgent;
my $ua = LWP::UserAgent->new;
$ua->timeout(1);
$ua->proxy('http', 'http://proxy.example.net:8001/');
my $res = $ua->get('http://ja.doukaku.org/feeds/comments');
if ($res->is_success) {
print $res->content;
}
else {
die $res->status_line;
}
|


ところてん
#4798()
Rating2/2=1.00
see: HTTPでGET
[ reply ]