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)
转换给定的perl数据结构到一个UTF-8编码的,2进制的字符串。
encode_json 产生一个UTF-8编码的2进制字符
[root@wx03 ~]# cat a15.pl
use JSON qw/encode_json decode_json/ ;
use Encode;
my $data = [
{
'name' => 'Ken' ,
'age' => 19
},
{
'name' => '测试' ,
'age' => 25
}
];
my $json_out = encode_json ( $data );
print $json_out;
print "\n";
my $d=decode_utf8($json_out);
print $d;
print "\n&#
perl encode_json 会产生 UTF-8 (binary) string decode_json 需要一个 UTF-8 (binary) string
最新推荐文章于 2023-04-02 08:17:14 发布
本文介绍了Perl中的encode_json和decode_json函数,用于将Perl数据结构转换为UTF-8编码的二进制字符串,并从UTF-8编码的JSON文本中解析回Perl数据结构。示例代码展示了如何使用这两个函数进行数据转换,并强调了decode_json需要接收一个UTF-8二进制字符串作为输入。
摘要由CSDN通过智能技术生成