LWP中文FAQ [仙子整理]

蘭花仙子

LWP中文FAQ
若有變動或補充仙子會即時更新


1. 如何快速GET一個頁面？

1.   use LWP::Simple;
   
2.   my $doc = get 'http://www.example.com/';

復制代碼

2. 標準的HTTP請求過程？

1.   use LWP::UserAgent;
   
2. 
   
3.   my $ua = LWP::UserAgent->new;
   
4.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
   
5. 
   
6.   my $res = $ua->request($req);
   
7. 
   
8.   if ($res->is_success) {
   
9.       print $res->as_string;
   
10.   }else {
    
11.       print "Failed: ", $res->status_line, "\n";
    
12.   }

復制代碼

3. 如何得到HTTP響應狀態碼？

1.   print $res->status_line;

復制代碼

4. 如何得到HTTP響應的完整內容？

1.   print $res->as_string;

復制代碼

5. 如何得到HTTP響應的HTML解碼后的內容？

1.    print $res->decoded_content;

復制代碼

6. 如何POST數據？

1.   use LWP::UserAgent;
   
2.   my $ua = LWP::UserAgent->new;
   
3. 
   
4.   my $req = HTTP::Request->new(POST => 'http://www.example.com/');
   
5.   $req->content_type('application/x-www-form-urlencoded');
   
6.   $req->content('key1=value1&key2=value2');
   
7. 
   
8.   my $res = $ua->request($req);
   
9.   print $res->as_string;

復制代碼

7. 如何接受Cookie?

1.   use LWP::UserAgent;
   
2.   use HTTP::Cookies;
   
3. 
   
4.   my $ua = LWP::UserAgent->new;
   
5.   $ua->cookie_jar(HTTP::Cookies->new(file => "lwpcookies.txt",
   
6.                                      autosave => 1));
   
7. 
   
8.   my $req = HTTP::Request->new(GET => "http://www.example.com/");
   
9. 
   
10.   my $res = $ua->request($req);
    
11.   print $res->status_line;

復制代碼

8. 如何在請求里發送指定的Cookie？

1. 
   
2.   use LWP::UserAgent;
   
3.   my $ua = LWP::UserAgent->new;
   
4. 
   
5.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
   
6.   $req->header('Cookie' => "key1=value1;key2=value2");
   
7. 
   
8.   my $res = $ua->request($req);
   
9.   print $res->status_line;

復制代碼

9. 如何訪問需要身份驗證的網站（basic auth）？

1.   use LWP::UserAgent;
   
2.   my $ua = LWP::UserAgent->new;
   
3. 
   
4.   my $req = HTTP::Request->new(GET => 'http://www.example.com/');
   
5.   my $req->authorization_basic('user', 'password');
   
6. 
   
7.   my $res = $ua->request($req);
   
8.   print $res->as_string;

復制代碼

10. 如何指定UserAgent的超時時間和版本？

1.   my $ua = LWP::UserAgent->new;
   
2.   $ua->timeout(5);
   
3.   $ua->agent("Mozilla/8.0");

復制代碼

11. 如何讓UserAgent不follow重定向？

1.   $ua->max_redirect(0);

復制代碼

  參數表示跟隨重定向的層數，0表示不跟隨重定向。


12. 如果機器有多個IP，如何指定UserAgent使用哪個IP訪問網絡？

1. 
   
2.   $ua->local_address('1.2.3.4');

復制代碼

13. 直接使用IP訪問網站，為什么會失��？

   那是因為沒有加上Host頭部，虛擬主機識別不出你的請求。
   在構造請求時，請加上Host頭部：

1.    my $req = HTTP::Request->new(GET => "1.2.3.4");
   
2.     $req->header('Accept' => 'text/html',
   
3.                  'Host' => 'www.example.com');

復制代碼

yybmsrs

蘭花仙子

俺自己加個保留哈。。經驗總結，可供借鑒。

nuclearxin

Addison.Wesley.Network.Programming.With.Perl

google這本書 perl的 sorcket http 之類的就明朗

toniz

黑色陽光_cu

搞不懂LWP為什么不默認支持HTTP持續連接。

zhlong8

總結的很好啊，常用的都點到了。精華�。�！

doiob

wxlfh

謝謝蘭花兒。

我好象是馬甲

{:3_187:}