centos6.5:/root#perl t1.pl [{"age":19,"name":"ç§æ¯"},{"name":"ä¹ä¸¹","age":25}][{"age":19,"name":"科比"},{"name":"乔丹","age":25}]centos6.5:/root#cat t1.pl use JSON qw/encode_json decode_json/; use Encode; my $data = [ { 'name' => '科比', 'age' => 19 }, { 'name' => '乔丹', 'age' => 25 } ]; my $json_out = encode_json($data); print $json_out; print "\n"; print decode_utf8($json_out);print "\n";centos6.5:/root#perl t1.pl [{"name":"ç§æ¯","age":19},{"name":"ä¹ä¸¹","age":25}][{"name":"科比","age":19},{"name":"乔丹","age":25}]$json_text = encode_json $perl_scalar Converts the given Perl data structure to a UTF-8 encoded, binary string. $perl_scalar = decode_json $json_text The opposite of encode_json: expects an UTF-8 (binary) string and tries to parse that as an UTF-8 encoded JSON text, returning the resulting referenc. decode_json 自动解Utf8 字节centos6.5:/root#cat t1.pl use JSON qw/encode_json decode_json/; use Encode; my $data = [ { 'name' => '科比', 'age' => 19 }, { 'name' => '乔丹', 'age' => 25 } ]; my $json_out = encode_json($data); print $json_out; print "\n"; print decode_json($json_out)->[0]->{name};print "\n";centos6.5:/root#perl t1.pl [{"name":"ç§æ¯","age":19},{"age":25,"name":"ä¹ä¸¹"}]科比字符<-decode_json<-字节 字符->encode_json->字节
0 0