perl weixin webwxsync

$d->{SyncKey}

获取SyncKey:

"SyncKey": {
"Count": 4,
"List": [{
"Key": 1,
"Val": 646983053
}
,{
"Key": 2,
"Val": 646983346
}
,{
"Key": 3,
"Val": 646983193
}
,{
"Key": 1000,
"Val": 1453944525
}
]
}


$m is HASH(0x2ecab28)
$VAR1 = {
          'List' => [
                      {
                        'Val' => 646985714,
                        'Key' => 1
                      },
                      {
                        'Val' => 646985724,
                        'Key' => 2
                      },
                      {
                        'Val' => 646985723,
                        'Key' => 3
                      },
                      {
                        'Val' => 1454124263,
                        'Key' => 1000
                      }
                    ],
          'Count' => 4
        };
@xa is ARRAY(0x2ecaed0)
$VAR1 = [
          {
            'Val' => 646985714,
            'Key' => 1
          },
          {
            'Val' => 646985724,
            'Key' => 2
          },
          {
            'Val' => 646985723,
            'Key' => 3
          },
          {
            'Val' => 1454124263,
            'Key' => 1000
          }
        ];
		

$d->{SyncKey}->{List}


https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?
sid=7g5I6aWSk3JmBuAP
&skey=@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76
&lang=zh_CN
&pass_ticket=WSDTQWyUgQ0OsYtaitxnGCkwGcPC4M%252BF7gAiuoLz186hRkbfwSKFQQ61Bx4lx7R0



JSON
		
	
BaseRequest   Object { Uin=1284510822,  Sid="7g5I6aWSk3JmBuAP",  Skey="@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76",  更多...}
	
DeviceID     "e161070198639509"
	
Sid         "7g5I6aWSk3JmBuAP"
	
Skey        "@crypt_597aeefd_0fa59284843b8203b2ae09d7b69c3d76"
	
Uin         1284510822
	
SyncKey     Object { Count=4,  List=[4]}
	
Count       4
	
List       [Object { Key=1,  Val=646985714}, Object { Key=2,  Val=646985715}, Object { Key=3,  Val=646985696}, Object { Key=1000,  Val=1454124263}]
	
0          Object { Key=1,  Val=646985714}
	
Key        1
	
Val       646985714
	
1          Object { Key=2,  Val=646985715}
	
Key         2
	
Val     	646985715
	
2          Object { Key=3,  Val=646985696}
	
	
Key         3
	
Val         646985696
	
3           Object { Key=1000,  Val=1454124263}
	
Key         1000
	
Val        1454124263
	
rr         1867569674



perl:

$sync_url="https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?sid=$wxsid&skey=$Skey&lang=zh_CN&pass_ticket=$pass_ticket";

  my @query_string = (
        sid     => $wxsid,
        skey    => $Skey,
        r       => $now,
        pass_ticket =>$pass_ticket
    );
    my $post = {
        BaseRequest =>  {Uin => $wxuin,Sid=>$wxsid},
        SyncKey     =>  $m->{List},
        rr          =>  $now
    };
use JSON qw(encode_json);
$json_string = encode_json($post);

my $req = HTTP::Request->new('POST' => $sync_url,[  'lang'=>'zh_CN', 'pass_ticket'=>"$pass_ticket",'sid'=>$wxsid,'skey'=>$Skey]);