Perl用LWP实现GET/POST数据发送
1. GET ，获取网页内容，3句话，很简单吧！#!perl -w
usestrict;
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的用法部分！
页:
[1]