• perl post发送json数据




    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 ";
               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,
                                             }
                              };

  • 相关阅读:
    【摘】DB2程序性能
    动态html标签textarea的readOnly属性(JavaScript)
    Html和Xml 文件中的特殊字符 需要转义【转】
    ping的通telnet不正常 服务器之间连接不稳定
    AJAX 和 JSP 10.5(转)实现进度条【转】
    RedHat上部署was7.0
    JPPF 在Windows Server 2008R2上的配置
    银联贷记卡账务账务计算说明
    mybatis源码分析
    使用Neo4j的apoc插件,实现数据从MySQL抽取到Neo4j
  • 原文地址:https://www.cnblogs.com/zhaoyangjian724/p/6199655.html
Copyright © 2020-2023  润新知