perl post 带上请求头

最新推荐文章于 2021-05-31 19:01:07 发布

weixin_30474613

最新推荐文章于 2021-05-31 19:01:07 发布

阅读量183

点赞数

原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6200159.html

版权

my $url='https://www.zjcap.cn/business/dispatch_post.do?action=submitAdminLogin';
 my $res = $ua->post($url,{
	                       'userName'=>'xxx',
                          'userPass'=>'3xxx8599e549ff',
						  'userPass1'=>'xxx56',
                          'validCode'=> "$validCode"
                                                },
				'User-Agent'=>'Mozilla/5.0 (Windows NT 6.1; WOW64; rv:45.0) Gecko/20100101 Firefox/45.0',
                'Host'=>'www.zjcap.cn',
                'Referer'=>'https://www.zjcap.cn/backoffice/login.html'				
				
										);
			 print "---------------\n";

#my $head =$res->header('Location');					
print $res->header('Location');	
print "\n";	
					
print $res->status_line."\n";
print $res->as_string();#获取的是原始内容，包括响应头，响应正文

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6200159.html