当前位置: 技术问答>linux和unix
如何用perl发一个URL请求
来源: 互联网 发布时间：2015-11-28
本文导语: 想写一个脚本,用来发送一个URL请求. | 你可以用LWP模块，这里有一个小例子： my $url = 'http://freshair.npr.org/dayFA.cfm?todayDate=current'; use LWP::Simple; my $content = get $url; die "Couldn't ge...
想写一个脚本,用来发送一个URL请求.
|
你可以用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
您可能感兴趣的文章:
本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术，将尽最大努力为读者提供更好的信息聚合和浏览方式。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。
本站(WWW.)站内文章除注明原创外，均为转载、整理或搜集自网络。欢迎任何形式的转载，转载请注明出处。