1. GET ，獲取網頁內容，3句話，很簡單吧！

#!perl -w
use strict;
use LWP;

my $browser = LWP::UserAgent->new();
my $response= $browser->get("http://www.toolmao.com");

print $response->content; # 輸出獲得的網頁內容

2. POST，發送數據

#!perl -w
use strict;
use LWP;

my $browser = LWP::UserAgent->new();
my $response= $browser->post("http://www.toolmao.com", [ "test" => 123 , "data" => "gainover"]); #多加了一個被發送的數據的數組

print $response->content; # 輸出獲得的網頁內容

3. multipart/form-data 類型的，一般上傳文件的時候會用到

#!perl -w
use strict;
use LWP;

my $browser = LWP::UserAgent->new();

my $response = $browser->post(
? 'http://www.toolmao.com',
? [ 'subject' => 'test for toolmao.com',
?'uploadfile' => ["./file/工具貓.txt"],??? #這里是被上傳的文件路徑
??? 'user'??? => 'Adm. Kang',
? ],
? 'Content_Type' => 'form-data'????????????????????????? #這句不可少，表示類型為 multipart/form-data
);

print $response->content; # 輸出返回的網頁內容 更多的用法，例如設置User-Agent, cookies等，可以查看perl手冊里關于lwp的用法部分！

轉載于:https://blog.51cto.com/soige/385202

總結

以上是生活随笔為你收集整理的Perl用LWP实现GET/POST数据发送的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。