Perl的LWP应用示范:获取网页
#! /usr/bin/perl
use LWP 5.64; # 载入较新版本的 LWP classes
use LWP::Simple;
my $url = ‘http://xinsoft.blogchina.com/’;
my $content = get $url;
die "Couldn’t get $url" unless defined $content;
# print( $content );
你可以使用这个链接引用该篇文章 http://publishblog.blogchina.com/blog/tb.b?diaryID=965119