perl-http

5290589

use LWP::UserAgent;;  
use HTTP::Request;  
use HTTP::Response;  
use HTTP::Request::Common;  
$agent=new LWP::UserAgent;  
$request=POST('http://localhost:8080/wm/ab',[name=>'zhangsan']);  
$request->header('User-Agent'=>'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');  
$request->header('Accept-Encoding'=>'gzip, deflate');  
$response=$agent->request($request);  
print $response->status_line,"\n";  
print $response->content;
　　
　　post 传送文件



use LWP
require HTTP::Headers;
$agent = LWP::UserAgent->new;
$response = $agent->post("http://localhost:8080/springtest/fileupload",'Content_Type' => 'multipart/form-data; boundary=----------------------', Content => [
"user_id"=>"05C30167EA3B4F76AE0D8A4ADB984679",
'pic' => ["dir"]
#]);
print $response->content, "\n";
　　
　　post



use LWP
require HTTP::Headers;
$agent = LWP::UserAgent->new;
$response = $agent->post("http://localhost:8080/service/store/storeSend", [ "user_id" => "05C30167EA3B4F76AE0D8A4ADB984679" , "bno" => "bnotest001"]);
　　get



#! /usr/bin/perl
use LWP;
$agent = LWP::UserAgent->new;
$response = $agent->get("http://istg.xxxx.com/service/store/storeorder/sendandreceive?userid=23812164&deliveryids=&cmd_type=0");
print $response->content, "\n";
　　get add cookie



#! /usr/bin/perl
use LWP;
use HTTP::Cookies;
$agent = LWP::UserAgent->new;
my $cookies = HTTP::Cookies->new();
$cookies->set_cookie(0,'JSESSIONID', 'A9D5B373B86ACDB04914DEC83E3DA40E','/','store.sf-express.com',80,0,0,86400,0);
$agent->cookie_jar($cookies);
$agent->cookie_jar({ 'STORE'=>'STORE_POOL_CNSZ01_49_130_8080', 'JSESSIONID'=> '84BCF81B536D5CB13AFA48E31ACAA6B6' });
$response = $agent->get("http://store.sf-xxxxx.com/html/admin/user_list.html");
print $response->content, "\n";
　　get add header



#! /usr/bin/perl
use LWP;
use HTTP::Cookies;
$agent = LWP::UserAgent->new;
my @netscape_like_headers = (
'User-Agent' => 'Mozilla/4.76 [en] (Win98; U)',
'Accept-Language' => 'en-US',
'Accept-Charset' => 'iso-8859-1,*,utf-8',
'Accept-Encoding' => 'gzip',
'Accept' =>
"image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, image/png, */*",);
$response = $agent->get("http://store.xxxxxx.com/servlet/storeAction?actionType=list",@netscape_like_headers);
print $response->content, "\n";
　　
　　post add header



use LWP::UserAgent;;  
use HTTP::Request;  
use HTTP::Response;  
use HTTP::Request::Common;  
$agent=new LWP::UserAgent;  
$request=POST('http://localhost:8080/wm/ab',[name=>'zhangsan']);  
$request->header('User-Agent'=>'Mozilla/5.0 (Windows NT 5.1; rv:10.0.1) Gecko/20100101 Firefox/10.0.1');  
$request->header('Accept-Encoding'=>'gzip, deflate');  
$response=$agent->request($request);  
print $response->status_line,"\n";  
print $response->content;