encode_json 会对给定的Perl的数据结构转换为一个UTF-8 encoded, binary string.

use JSON qw/encode_json decode_json/ ;
use Encode;
my $data = [
     {
         'name' => 'Ken' ,
         'age' => 19
     },
     {
         'name' => '测试' ,
         'age' => 25
     }
];
print encode_utf8("'name' => '测试'");
print "\n";
my $json_out = encode_json ( $data );
print $json_out;
print "\n";

encode_json  

    $json_text = encode_json $perl_scalar
Converts the given Perl data structure to a UTF-8 encoded, binary string.  

This function call is functionally identical to:  

    $json_text = JSON->new->utf8->encode($perl_scalar)  

encode_json 会对给定的Perl的数据结构转换为一个UTF-8 encoded, binary string.