Perl用LWP实现GET/POST数据发送

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的用法部分！