实例解析用Perl抓取网页和提交表格

本文和大家重点讨论一下用Perl抓取网页和提交表格的方法，在学习Perl的过程中这些问题是经常会遇到的，这里简单介绍一下用Perl来实现抓好取网页的源代码，以及用POST的方法来提交表格，并返回结果。

高碑店ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

用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就是返回结果。

【编辑推荐】

1. Perl if语句用法实例解析
2. Perl文件句柄概念详解
3. 实例解析Perl守护进程用法
4. Perl基础 Perl数组学习指南
5. 术语汇编 Perl变量中Perl关联数组用法解析

本文题目：实例解析用Perl抓取网页和提交表格
网页URL：http://www.36103.cn/qtweb/news12/162.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联