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

开发 后端
Perl语言有很多值得学习的地方,那么你对用Perl抓取网页和提交表格的方法是否熟悉,这里就和大家分享一下,希望本文的介绍能让你有所收获。

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

用Perl抓取网页和提交表格

这里简单介绍一下用Perl来实现抓好取网页的源代码,以及用POST的方法来提交表格,并返回结果。难的讲不来,讲讲简单的。

这里讲到的Perl模块有:

useLWP::Simple;useLWP::UserAgent;用Perldoc查看详细的用法。

1,用Perl抓取网页

如果只是要拿到某个网页,那使用LWP::Simple里的函数是最简单的。通过调用get($url)函数,就可以得到相关网址的内容。

  1. my$url='http://freshair.npr.org/dayFA.cfm?todayDate=current' 
  2.  
  3. useLWP::Simple;  
  4. my$content=get$url;  
  5. die"Couldn'tget$url"unlessdefined$content;  
  6.  

 #$content里是网页内容,下面是对此内容作些分析:

  1. if($content=~m/jazz/i){  
  2. print"They'retalkingaboutjazztodayonFreshAir!\n";  
  3. }else{  
  4. print"FreshAirisapparentlyjazzlesstoday.\n";  

非常简单易懂。拿网页内容是容易的,难的是用正则过滤需要的内容。

2,通过POST提交表格

部分HTML表格使用HTMLPOST向服务器提交数据,在这里你可以这样:

  1. $response=$browser->post($url,  
  2. [  
  3. formkey1=>value1,  
  4. formkey2=>value2,  
  5. ...  
  6. ],  
  7. ); 

实例分析:例如在http://www.enzim.hu/hmmtop/html/submit.html)提交一段序列并返回结果,用Perl来实现。代码如下:

  1. #!/usr/bin/Perl  
  2.  
  3. useLWP::UserAgent;  
  4. my$browser=LWP::UserAgent->new;  
  5. $protein="MSSSTPFDPYALSEHDEERPQNVQSKSRTAELQAEIDDTVGIMRDNINKVAERGERLTSI";  
  6. my$SUSUI_URL="http://www.enzim.hu/hmmtop/server/hmmtop.cgi";  
  7. my$response=$browser->post($SUSUI_URL,['if'=>$protein,]);  
  8.  
  9. if($response->is_success){  
  10.  print$response->content;  
  11. }else{  
  12.  print"Badluckthistime\n";  
  13. }  

通过分析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关联数组用法解析

 

责任编辑:佚名 来源: csdn.net
相关推荐

2010-07-16 08:47:53

Perl if语句

2010-07-20 09:45:04

Perl继承

2010-07-23 13:46:27

Perl语言

2010-07-26 14:06:43

Perl substr

2010-07-15 15:54:10

Perl守护进程

2010-07-20 15:02:20

Perl数组

2021-11-24 17:22:06

网络抓取网络爬虫数据收集

2010-07-15 13:13:21

Perl多进程

2010-07-19 13:49:17

Perl函数

2010-07-26 09:14:22

Perl命令行

2010-07-20 14:41:55

Perl语法

2010-07-15 14:17:15

2010-07-20 10:02:15

Perl类

2012-05-17 15:11:23

linux

2010-07-02 08:57:45

UML用例图

2024-06-19 09:21:08

2010-07-19 08:39:14

Perl包

2010-07-13 13:49:43

Perl foreac

2010-07-13 14:26:11

Perl数组

2010-06-29 12:30:15

UML实例中ATM类图
点赞
收藏

51CTO技术栈公众号