Code · 2010-01-08

perl抓取网页LWP::Simple

perl简易抓取页面程序

#!/usr/bin/perl
use strict;
use LWP::Simple;
my $url = 'http://www.baidu.com';
my $go = get($url);
print "$go\n";