13518219792
这篇文章主要介绍了怎么用Perl抓取网页和提交表格，具有一定借鉴价值，感兴趣的朋友可以参考下，希望大家阅读完这篇文章之后大有收获，下面让小编带着大家一起了解一下。
创新互联是一家专注于网站建设、成都网站设计与策划设计,长岭网站建设哪家好?创新互联做网站,专注于网站建设10余年,网设计领域的专业建站公司;建站业务涵盖:长岭等地区。长岭做网站价格咨询:028-86922220
用Perl抓取网页和提交表格
这里简单介绍一下用Perl来实现抓好取网页的源代码，以及用POST的方法来提交表格，并返回结果。难的讲不来，讲讲简单的。
这里讲到的Perl模块有：
useLWP::Simple;useLWP::UserAgent;用Perldoc查看详细的用法。
1，用Perl抓取网页
如果只是要拿到某个网页，那使用LWP::Simple里的函数是最简单的。通过调用get($url)函数，就可以得到相关网址的内容。
my$url='http://freshair.npr.org/dayFA.cfm?todayDate=current' useLWP::Simple; my$content=get$url; die"Couldn'tget$url"unlessdefined$content;
#$content里是网页内容，下面是对此内容作些分析：
if($content=~m/jazz/i){ print"They'retalkingaboutjazztodayonFreshAir!\n"; }else{ print"FreshAirisapparentlyjazzlesstoday.\n"; }非常简单易懂。拿网页内容是容易的，难的是用正则过滤需要的内容。
2，通过POST提交表格
部分HTML表格使用HTMLPOST向服务器提交数据，在这里你可以这样：
$response=$browser->post($url, [ formkey1=>value1, formkey2=>value2, ... ], );
实例分析：例如在http://www.enzim.hu/hmmtop/html/submit.html)提交一段序列并返回结果，用Perl来实现。代码如下：
#!/usr/bin/Perl useLWP::UserAgent; my$browser=LWP::UserAgent->new; $protein="MSSSTPFDPYALSEHDEERPQNVQSKSRTAELQAEIDDTVGIMRDNINKVAERGERLTSI"; my$SUSUI_URL="http://www.enzim.hu/hmmtop/server/hmmtop.cgi"; my$response=$browser->post($SUSUI_URL,['if'=>$protein,]); if($response->is_success){ print$response->content; }else{ print"Badluckthistime\n"; }通过分析http://www.enzim.hu/hmmtop/html/submit.html的页面可知，这个要提交的input只有一个，就是name="if"。$protein就是要提交的序列。$response->content就是返回结果。
感谢你能够认真阅读完这篇文章，希望小编分享的“怎么用Perl抓取网页和提交表格”这篇文章对大家有帮助，同时也希望大家多多支持创新互联，关注创新互联行业资讯频道，更多相关知识等着你来学习!
