perl处理含有中文字符的json编码

zuier

　　例子:
1. 有php的 json函数生成的中文串
　　[iyunv@tts177:/tmp]$/opt/php/bin/php -r 'echo json_encode(Array("a"=>"测试"))."\n";'
{"a":"\u6d4b\u8bd5"}
[iyunv@tts177:/tmp]$
　　
　　2. perl代码和执行结果如下：
　　[iyunv@tts177:/tmp]$more uuu.pl
#!/usr/bin/perl
use warnings;
use Data::Dumper;
use JSON;
use Encode;
use URI::Escape;
　　my $str = '{"a":"\u6d4b\u8bd5"}';   ##就是上面的php字符串
my $p = decode_json($str);
print Dumper $p;
[iyunv@tts177:/tmp]$
[iyunv@tts177:/tmp]$./uuu.pl
$VAR1 = {
          'a' => "\x{6d4b}\x{8bd5}"  ##怪了吧，要是用php自带的json_decode($str,true)函数，解析出来的就是正常中文。
        };
[iyunv@tts177:/tmp]$
　　
　　3. 解决方法，参考：
http://bbs.iyunv.com/thread-1340623-1-1.html     6楼的帖子

　　4. 如下代码是解决方法
　　[iyunv@tts177:/tmp]$more uuu.pl
#!/usr/bin/perl
use warnings;
use Data::Dumper;
use JSON;
use Encode;
use URI::Escape;   ##正如帖子所说,不能用"use utf8"
　　my $str = '{"a":"\u6d4b\u8bd5"}';
my $p = decode_json($str);
　　my $s = $p->{'a'};
print $s,"\n";    ##第一个打印会打印出"Wide character in print at ./uuu.pl line 12." ,而且有时候还是乱码！
　　utf8::encode($s);   ##这里要非常注意，此函数返回值为0。如果写成  $s = utf::encode($s); 就错了！
print $s,"\n";
　　[iyunv@tts177:/tmp]$
[iyunv@tts177:/tmp]$./uuu.pl        
Wide character in print at ./uuu.pl line 12.
测试
测试
[iyunv@tts177:/tmp]$
　　
　　
　　[iyunv@tts177:/tmp]$more uuu.pl
#!/usr/bin/perl
use warnings;
use Data::Dumper;
#use URI::Escape;
my $unicode = "\x{505c}\x{8f66}";  
utf8::encode( $unicode );
print $unicode;
　　[iyunv@tts177:/tmp]$
[iyunv@tts177:/tmp]$./uuu.pl
停车[iyunv@tts177:/tmp]$