perl 微信取自己的ID

来源：互联网发布：after leg day知乎编辑：程序博客网时间：2024/05/06 08:07
$synckey is 1_647230939%7C2_647231409%7C3_647230934%7C1000_1454375195$name is xxxx@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9$url is https://webpush.weixin.qq.com/cgi-bin/mmwebwx-bin/synccheck?r=1454390671&skey=%40crypt_597aeefd_2087aae333c935578bdb963406aa7acd&sid=LezUNxxOprrVGDT5&uin=1284510822&deviceid=e491139602652110&synckey=1_647230939%7C2_647231409%7C3_647230934%7C1000_1454375195&_=1454390671window.synccheck={retcode:"0",selector:"2"}$mss is 2-------------syncinfo-----------------{"BaseResponse": {"Ret": 0,"ErrMsg": ""}在群里发消息:"AddMsgCount": 2,"AddMsgList": [{"MsgId": "1153786086346606897","FromUserName": "@@0844f4a616d3ed20156459c371b267b9b4b48f4d7efcb016b43fd55ede044d26","ToUserName": "@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9","MsgType": 1,"Content": "@b5a43e12bc8f74b9ebcc77db7898d7d515cf15de04b0681efbd920f626698965:<br/>那那",别人给我发消息:"MsgId": "4530263650172567578","FromUserName": "@b5a43e12bc8f74b9ebcc77db7898d7d515cf15de04b0681efbd920f626698965","ToUserName": "@25123d6a1a01232acfe6e53f1a8b856237c150736ef790fe3f0a3aa0c87eb2f9","MsgType": 1,"Content": "那时",取自己的ID:$UserName= $d->{User}->{UserName};print $UserName ;"User": {"Uin": 1284510822,"UserName": "@9751b47231055a7a70fe8c106b2479d8bc33de9a536e5e91523af0e4559258bb","NickName": "赵杨健","HeadImgUrl": "/cgi-bin/mmwebwx-bin/webwxgeticon?seq=846819880&username=@9751b47231055a7a70fe8c106b2479d8bc33de9a536e5e91523af0e4559258bb&skey=@crypt_597aeefd_5127caa7c5dc748ea80848cd99a4f03e",
0 0