perl weixin 获取好友信息

<pre name="code" class="python">https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxgetcontact?
pass_ticket=ovyLkGVM8W6lUAbZpt%252BhgJdeomQYRPOu8yf6FkW%252B7GE5Meq4S3qn4Qz%252FQyD64vsD
&r=1454072827975
&seq=0&skey=@crypt_597aeefd_95352fe37541ae84f1c15b4d8a86e710

获取好友信息,只有通讯录的好友信息,没有群信息:

pass_ticket	ovyLkGVM8W6lUAbZpt%2BhgJdeomQYRPOu8yf6FkW%2B7GE5Meq4S3qn4Qz%2FQyD64vsD
r	        1454072827975
seq	         0
skey	   @crypt_597aeefd_95352fe37541ae84f1c15b4d8a86e710


perl程序:

$url="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxgetcontact?lang=zh_CN&pass_ticket=$pass_ticket&seq=0&skey=$skey";
-------------friend-----------------
{
"BaseResponse": {
"Ret": 0,
"ErrMsg": ""
}
,
"MemberCount": 244,
"MemberList": [{
"Uin": 0,
"UserName": "@65374f237be9a1f34a783315fb98b57b4c523c07e4316a2484cca158220e2d80",
"NickName": "知道",
"HeadImgUrl": "/cgi-bin/mmwebwx-bin/webwxgeticon?seq=0&username=@65374f237be9a1f34a783315fb98b57b4c523c07e4316a2484cca158220e2d80&skey=",
"ContactFlag": 3,
"MemberCount": 0,
"MemberList": [],
"RemarkName": "",
"HideInputBarFlag": 0,
"Sex": 2
]}}

$d=encode_utf8($d);
$d = decode_json($d);

###@{$d->{MemberList}} 解数组引用
foreach $m (@{$d->{MemberList}}){
#print $m->{UserName};
push (@chatroom_id ,$m->{UserName});
print "
";s