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