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

alibabamama

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