perl post 带上请求头
2016-04-20 11:32
363 查看
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();#获取的是原始内容,包括响应头,响应正文
相关文章推荐
- 如何判断Fragment是否对用户可见
- MongoDB的设计特点简介
- 关于java程序员框架个人拙见
- <html>标签
- linux开启user_cmd功能记录用户所有操作指令到log message中
- 我常常浏览的博客和网站
- JAVA字符串格式化-String.format()的使用
- Ubuntu不能上网问题解决方法
- 记录一次被入侵5900端口经历
- 通过变量名获取变量值
- 导出websphere内存镜像
- libgdx 环境搭建
- Delphi - 字符串 详解
- js动态生成二维码图片
- mysql各种日志对应的配置项
- JAVA IO 序列化与设计模式
- Python异常
- top后台无法执行解决办法
- JIRA REST API Example - Cookie-based Authentication
- hadoop参考资料