perl模組LWP::Simple學習

標籤：

1. 如何在Perl中使用該模組？
   use LWP::Simple;
   
   2. 如何擷取一個頁面內容？
   my $content = get(‘http://www.yahoo.com.cn‘);
   
   get函數把從www.yahoo.com.cn上擷取得頁面內容全部賦給$content這個變數，
   如果擷取失敗將返回一個undef的值。
   
   3. 如何擷取頭(Head)？
   my (b, d, $e) = head(‘http://www.yahoo.com.cn‘);
   
   如果擷取成功head函數將返回五個變數，$a-e分別代表內容類型，文檔長度，最
   後更新的時間，到期和伺服器名稱。
   
   4. 如何輸出指定頁面內容？
   my $code = getprint(‘http://www.yahoo.com.cn‘);
   
   getprint將試圖列印www.yahoo.com.cn的內容，然後返回一個狀態號，比如成功將
   返回200，檔案沒有找到將返回404。
   
   5. 如何把擷取的內容儲存到一個檔案中？
   my $code = getstore(‘http://www.yahoo.com.cn‘, ‘/path/file.html‘);
   
   getstore將試圖把擷取的內容儲存到第二個參數指定的檔案中，返回一個狀態號，
   狀態號的形式如上。
   
   6. 如何同步遠程和本地檔案？
   my $code = mirror(‘http://www.yahoo.com.cn‘,‘/path/file.html‘);
   
   mirror函數將比較遠程和本地檔案的一致性，然後返回一個狀態號，比如檔案相同
   將返回304，如果本地檔案同步成功將返回200。
   
   7. 如何測試返回狀態的正確性？
   is_success($code)
   is_error($code)
   
   is_success和is_error這兩個函數可以傳遞一個狀態號為參數，程式會判斷返回的
   是否為成功狀態。比如is_success(403)將返回假。

#!/usr/bin/perl -w
use strict;
use LWP::Simple qw(get);

my $url = shift || "http://www.chinaunix.net";
my $content = get($url);

print $content;

exit 0;
最簡單方便的get網頁的方法。

perl模組LWP::Simple學習