日韩无码专区无码一级三级片|91人人爱网站中日韩无码电影|厨房大战丰满熟妇|AV高清无码在线免费观看|另类AV日韩少妇熟女|中文日本大黄一级黄色片|色情在线视频免费|亚洲成人特黄a片|黄片wwwav色图欧美|欧亚乱色一区二区三区

RELATEED CONSULTING
相關咨詢
選擇下列產(chǎn)品馬上在線溝通
服務時間：8:30-17:00
你可能遇到了下面的問題
關閉右側工具欄

新聞中心

這里有您想知道的互聯(lián)網(wǎng)營銷解決方案
實例解析用Perl抓取網(wǎng)頁和提交表格

本文和大家重點討論一下用Perl抓取網(wǎng)頁和提交表格的方法，在學習Perl的過程中這些問題是經(jīng)常會遇到的，這里簡單介紹一下用Perl來實現(xiàn)抓好取網(wǎng)頁的源代碼，以及用POST的方法來提交表格，并返回結果。

高碑店ssl適用于網(wǎng)站、小程序/APP、API接口等需要進行數(shù)據(jù)傳輸應用場景，ssl證書未來市場廣闊！成為創(chuàng)新互聯(lián)的ssl證書銷售渠道，可以享受市場價格4-6折優(yōu)惠！如果有意向歡迎電話聯(lián)系或者加微信：028-86922220（備注：SSL證書合作）期待與您的合作！

用Perl抓取網(wǎng)頁和提交表格

這里簡單介紹一下用Perl來實現(xiàn)抓好取網(wǎng)頁的源代碼，以及用POST的方法來提交表格，并返回結果。難的講不來，講講簡單的。

這里講到的Perl模塊有：

useLWP::Simple;useLWP::UserAgent;用Perldoc查看詳細的用法。

1，用Perl抓取網(wǎng)頁

如果只是要拿到某個網(wǎng)頁，那使用LWP::Simple里的函數(shù)是最簡單的。通過調用get($url)函數(shù)，就可以得到相關網(wǎng)址的內容。

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

 #$content里是網(wǎng)頁內容，下面是對此內容作些分析：

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

非常簡單易懂。拿網(wǎng)頁內容是容易的，難的是用正則過濾需要的內容。

2，通過POST提交表格

部分HTML表格使用HTMLPOST向服務器提交數(shù)據(jù)，在這里你可以這樣：

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

實例分析：例如在http://www.enzim.hu/hmmtop/html/submit.html)提交一段序列并返回結果，用Perl來實現(xiàn)。代碼如下：

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

通過分析http://www.enzim.hu/hmmtop/html/submit.html的頁面可知，這個要提交的input只有一個，就是name="if"。$protein就是要提交的序列。$response->content就是返回結果。

【編輯推薦】

  1. Perl if語句用法實例解析
  2. Perl文件句柄概念詳解
  3. 實例解析Perl守護進程用法
  4. Perl基礎 Perl數(shù)組學習指南
  5. 術語匯編 Perl變量中Perl關聯(lián)數(shù)組用法解析

文章名稱：實例解析用Perl抓取網(wǎng)頁和提交表格
網(wǎng)站URL：http://m.5511xx.com/article/dppsssp.html