你的分享就是我们的动力 ---﹥

Perl 使用指定的 User-Agent 抓取网页

时间:2013-05-30 00:14来源:www.chengxuyuans.com 点击:

 

Perl代码片段

#!/usr/bin/perl -w

use LWP;
use strict;

my $browser = LWP::UserAgent->new(agent => 'Perly v1');
my $result = $browser->get("http://www.braingia.org/ewfojwefoj");
die "An error occurred: ", $result->status_line() unless $result->is_success;

print $result->content;

转载注明地址:http://www.chengxuyuans.com/Perl/63118.html