23,120
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kairwen 2006-06-06
- 打赏
- 举报
谢谢~~
x86 2006-06-06
- 打赏
- 举报
你可以用LWP模块，这里有一个小例子：
my $url = 'http://freshair.npr.org/dayFA.cfm?todayDate=current';
use LWP::Simple;
my $content = get $url;
die "Couldn't get $url" unless defined $content;
# $content 里是网页内容，下面是对此内容作些分析：
if($content =~ m/jazz/i) {
print "They're talking about jazz today on Fresh Air!\n";
} else {
print "Fresh Air is apparently jazzless today.\n";
}
这里是一片介绍文章：
http://www.perlchina.org/archive/archive.php?action=archive&page=15
my $url = 'http://freshair.npr.org/dayFA.cfm?todayDate=current';
use LWP::Simple;
my $content = get $url;
die "Couldn't get $url" unless defined $content;
# $content 里是网页内容，下面是对此内容作些分析：
if($content =~ m/jazz/i) {
print "They're talking about jazz today on Fresh Air!\n";
} else {
print "Fresh Air is apparently jazzless today.\n";
}
这里是一片介绍文章：
http://www.perlchina.org/archive/archive.php?action=archive&page=15
