perl中 wx返回的json需要encode_utf8($d);

$count is 9
now not support message  51
Wide character in print at /root/scanwx/lib/synccheck.pm line 118.
$message is 模棱两可

$synckey  is 1_651248295%7C2_651248313%7C3_651248289%7C11_651247109%7C13_651190079%7C201_1468194926%7C1000_1468146781%7C1001_1468146812%7C1002_1467899577 
$FromUserName is @93637f6ddf8c54ddd4c8bb767d4300fc5c1c1e156797539018298581412abf15
$UserName is 
$ToUserName is filehelper
come in send_text_msg
$selector is 2
$sync_url is https://wx.qq.com/cgi-bin/mmwebwx-bin/webwxsync?sid=dysl9s4TKxDGMZB4&skey=@crypt_597aeefd_6b945b995af049e7188678913bb971ad&lang=zh_CN&pass_ticket=iK8FI9D59KEkUAmrhPq7CqMl%2Fkv2HgxOVdYU%2BRG16wNcGIpO7R0eiQYtNKJcu99%2F
-------------syncinfo-----------------
200 OK

$count is 9
Wide character in print at /root/scanwx/lib/synccheck.pm line 118.
$message is 记录哭了咯

$synckey  is 1_651248295%7C2_651248314%7C3_651248289%7C11_651247109%7C13_651190079%7C201_1468194942%7C1000_1468146781%7C1001_1468146812%7C1002_1467899577 
$FromUserName is @93637f6ddf8c54ddd4c8bb767d4300fc5c1c1e156797539018298581412abf15
$UserName is 
$ToUserName is filehelper
come in send_text_msg


 Wide character in print at /root/scanwx/lib/synccheck.pm line 118.  会报这个


原因：

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


处理json数据前,没有encode_utf8($d);