HTTP::Request
SYNOPSIS ^
require HTTP::Request;
$request = HTTP::Request->new(GET => 'http://www.example.com/');
通常使用为:
and usually used like this:
$ua = LWP::UserAgent->new;
$response = $ua->request($request);
/*****************************
[root@wx03 ~]# perl a21.pl
$VAR1 = bless( {
'_content' => 'this is test from scan',
'_msg' => 'OK',
'_protocol' => 'HTTP/1.1',
'_rc' => '200',
'_request' => bless( {
'_headers' => bless( {
'user-agent' => 'libwww-perl/6.15'
}, 'HTTP::Headers' ),
'_content' => '',
'_uri' => bless( do{(my $o = 'http://120.55.118.6:3000/admin/api/menu')}, 'URI::http' ),
'_method' => 'GET',
'_uri_canonical' => $VAR1->{'_request'}{'_uri'}
}, 'HTTP::Request' ),
'_headers' => bless( {
'date' => 'Mon, 11 Jul 2016 06:09:29 GMT',
'client-date' => 'Mon, 11 Jul 2016 06:09:29 GMT',
'::std_case' => {
'client-peer' => 'Client-Peer',
'client-date' => 'Client-Date',
'client-response-num' => 'Client-Response-Num'
},
'content-length' => '22',
'client-response-num' => 1,
'client-peer' => '120.55.118.6:3000',
'content-type' => 'text/html;charset=UTF-8',
'server' => 'Mojolicious (Perl)'
}, 'HTTP::Headers' )
}, 'HTTP::Response' );
11111111111111111
this is test from scan[root@wx03 ~]#
[root@wx03 ~]# cat a21.pl
use HTTP::Request;
use LWP::UserAgent;
use Data::Dumper;
$request = HTTP::Request->new(GET => 'http://120.55.118.6:3000/admin/api/menu');
$ua = LWP::UserAgent->new;
$response = $ua->request($request);
print Dumper($response);
print "11111111111111111
";
print $response->content;
[root@wx03 ~]# perl a21.pl
$VAR1 = bless( {
'_request' => bless( {
'_uri_canonical' => bless( do{(my $o = 'http://120.55.118.6:3000/admin/api/menu')}, 'URI::http' ),
'_uri' => $VAR1->{'_request'}{'_uri_canonical'},
'_headers' => bless( {
'user-agent' => 'libwww-perl/6.15'
}, 'HTTP::Headers' ),
'_method' => 'GET',
'_content' => ''
}, 'HTTP::Request' ),
'_rc' => '200',
'_content' => 'this is test from scan',
'_protocol' => 'HTTP/1.1',
'_msg' => 'OK',
'_headers' => bless( {
'client-response-num' => 1,
'::std_case' => {
'client-peer' => 'Client-Peer',
'client-response-num' => 'Client-Response-Num',
'client-date' => 'Client-Date'
},
'client-peer' => '120.55.118.6:3000',
'content-length' => '22',
'content-type' => 'text/html;charset=UTF-8',
'client-date' => 'Mon, 11 Jul 2016 06:09:39 GMT',
'server' => 'Mojolicious (Perl)',
'date' => 'Mon, 11 Jul 2016 06:09:39 GMT'
}, 'HTTP::Headers' )
}, 'HTTP::Response' );
11111111111111111
this is test from scan[root@wx03 ~]#
[root@wx03 ~]#
描述:
HTTP::Request 是一个类封装了HTTP 类型请求, 由一个请求行,一些headers和一个内容body组成。
注意 LWP 库使用HTTP协议请求甚至对于非HTTP协议, 这个类的实例是通常传递到一个LWP::UserAgent object.的request() method
require HTTP::Request;
$request = HTTP::Request->new(GET => 'http://www.example.com/');
通常使用为:
and usually used like this:
$ua = LWP::UserAgent->new;
$response = $ua->request($request);
HTTP::Request 是一个 HTTP::Message的子类 因为继承了它的方法, 下面额外的方法是提供的:
$r = HTTP::Request->new( $method, $uri )
$r = HTTP::Request->new( $method, $uri, $header )
$r = HTTP::Request->new( $method, $uri, $header, $content )
构造一个新的 HTTP::Request object 描述一个请求在一个对象 $uri 使用方法$method
$request = HTTP::Request->new(GET => 'http://www.example.com/');
$method 参数必须是一个字符串,
$uri 蚕食可以是一个字符串，或者一个引用到一个URI 对象。
额外的 $header 参数应该是一个引用到一个 HTTP::Headers object 或者一个 键值对的数组引用。
额外的$content参数必须是一个字符串
$r = HTTP::Request->parse( $str )
这个构造一个新的请求对象通过 解析一个给定的字符串
$r->method
$r->method( $val )
这是用于get/set 方法属性,方法应该是一个短的字符串 像 "GET", "HEAD", "PUT" or "POST".
$r->header( $field )
$r->header( $field => $value )
这是用来get/set header 值 它是继承于HTTP::Headers 通过HTTP::Message
$r->content
$r->content( $bytes )
这是用于get/set 内容,它是继承于HTTP::Message base类。
注意 content应该是一个字符串,字符串在perl可以包含字符以外的字节范围。
sub wx_init {
#$login_url ="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-$now&lang=zh_CN&pass_ticket=$pass_ticket";
my @chatroom_id = ();
#my $response= $browser->post("https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit", [ "r" => "-$now","lang" => "zh_CN","pass_ticket"=>"$pass_ticket"]); #多加了
$login_url ="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-$now&lang=zh_CN&pass_ticket=$pass_ticket";
my $post = {
BaseRequest => {
Uin => $wxuin,
Sid => $wxsid,
Skey => $Skey,
DeviceID => $DeviceID,
}
};
use JSON qw(encode_json);
$json_string = encode_json($post);
my $req = HTTP::Request->new(
'POST' => $login_url
);
$req->referer("https://wx.qq.com/?&lang=zh_CN");
$req->content_type('application/json; charset=UTF-8');
#post请求,如果有发送参数，必须要有这句
$req->content("$json_string"); #发送post的参数
my $res = $ua->request($req);
print $res->content(); #获取的是响应正文
};