perl weixin webwxinit 接口

<pre name="code" class="python">https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxinit?r=1921102163&pass_ticket=ovyLkGVM8W6lUAbZpt%252BhgJdeomQYRPOu8yf6FkW%252B7GE5Meq4S3qn4Qz%252FQyD64vsD参数；pass_ticketovyLkGVM8W6lUAbZpt%2BhgJdeomQYRPOu8yf6FkW%2B7GE5Meq4S3qn4Qz%2FQyD64vsDr        1921102163JSON:BaseRequest Object { Uin="1284510822",  Sid="zJpU4C7YK9KeMmQ0",  Skey="@crypt_597aeefd_95352fe37541ae84f1c15b4d8a86e710",  更多...}DeviceID"e290361266006370"Sid        "zJpU4C7YK9KeMmQ0"Skey       "@crypt_597aeefd_95352fe37541ae84f1c15b4d8a86e710"Uin        "1284510822"返回:webwxinit是显示你微信首屏上的近期联系人 包括最近聊天的好友和群组可能不会显示群成员信息"BaseResponse": {"Ret": 0,"ErrMsg": ""},"Count": 11,"ContactList": [{"UserName": "filehelper","NickName": "文件传输助手"UserName": "@@afabc51b74c3eb4c9941a6da70f20b072799b09a06e16eb8f193025b75d2425b","NickName": "云霁大会现场群","UserName": "@@b3a5e222726a2eb2329065f83a2a01bb9d7e553b5695c155597147653d477c00","NickName": "中均-p2g开发","UserName": "newsapp","NickName": "腾讯新闻""Uin": 0,"UserName": "weixin","NickName": "微信团队","UserName": "@b506a484e1b82246124c283a7daff85d","NickName": "积分联盟","UserName": "@@f786bc5ff6f8501e745f0b82b480ac22a698349cd5d4ce645af81ce1afc1f7c2","NickName": "技术改革工作办公室","UserName": "@294b2f5030f2c47712f1701f7cd43158", ###微信好友"NickName": "天使的风衣",返回:"SyncKey": {"Count": 4,"List": [{"Key": 1,"Val": 646985545},{"Key": 2,"Val": 646985575},{"Key": 3,"Val": 646985306},{"Key": 1000,"Val": 1454062118}]},Perl程序:@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=-1816029078&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 "-------------init-----------------\n";#print $res->status_line."\n";  #print $res->as_string();#获取的是原始内容，包括响应头，响应正文  #print $res->content();#获取的是响应正文$d=$res->content();返回的json 需要转换为数组:{"BaseResponse": {"Ret": 0,"ErrMsg": ""},"Count": 11,"ContactList": [{"Uin": 0,"UserName": "filehelper","NickName": "文件传输助手","HeadImgUrl": "/cgi-bin/mmwebwx-bin/webwxgeticon?seq=638861246&username=filehelper&skey=@crypt_597aeefd_95352fe37541ae84f1c15b4d8a86e710","ContactFlag": 3]}}$d=encode_utf8($d);$d = decode_json($d);use Data::Dumper;  my $var= Dumper($d);  #print $var;foreach $m (@{$d->{ContactList}}){#print "----------------\n";#print $m->{UserName};if ($m->{UserName} =~/\@\@/){push (@chatroom_id ,$m->{UserName});};print "\n";};