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," "; 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, " ";
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, " ";
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, " ";
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, " ";
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," "; print $response->content;