perl post发送json数据
2016-07-09 14:11
453 查看
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# , # [ 'r' => "-$now", 'lang' => 'zh_CN', 'pass_ticket' => "$pass_ticket" ] ); $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(); #获取的是响应正文}; &wx_login(); &wx_ticket(); &wx_init(); print "1111111111111111\n"; my $cv = AnyEvent->condvar; $cv->recv; lwp post发送json数据: https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=835023443&lang=zh_CN&pass_ticket=Pu6mmRTRUaapMi%252F6PvAqoGWxSv9fpWkl2z54LMelmbCu1C8axYqX8ykBiIuhi87%252B $login_url ="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=-$now&lang=zh_CN&pass_ticket=$pass_ticket";
{"BaseRequest":{"Uin":"1284510822","Sid":"oYlYL2QfdCo/9p2W","Skey":"@crypt_597aeefd_1ae3a79a94a77a11cddbff51ff836252"
,"DeviceID":"e173991914404491"}}
my $post = { BaseRequest => { Uin => $wxuin, Sid => $wxsid, Skey => $Skey, DeviceID => $DeviceID, } };
相关文章推荐
- perl post发送json数据
- perl post发送json数据
- 一些json数据格式转换的例子
- JavaScript实现拖拽预览,AJAX小文件上传
- 关于js开发的小问题
- js数组去重
- Jason和xml两者的区别
- Javascript继承机制
- 对于javascript四舍五入保留多少位小数的问题
- js 中 == 和 ===的区别
- JSP判断list大小——JSTL
- js如何判断复选框是否选中
- 浏览器地址栏运行JavaScript代码
- javascript之window对象
- jsp核心标签库(JSTL)
- js获得checkbox选中值及input后面的文本
- JSTL 核心标签库 使用
- javaScript对象里面组装数组,数组组装对象
- 安卓开发:解析JSON格式数据
- JavaScript基础知识点归纳(推荐)