perl encode_json 会产生 UTF-8 (binary) string decode_json 需要一个 UTF-8 (binary) string

最新推荐文章于 2021-03-09 22:53:55 发布

scan724

最新推荐文章于 2021-03-09 22:53:55 发布

阅读量1.4k

点赞数

分类专栏： perl LWP

本文链接：https://blog.csdn.net/zhaoyangjian724/article/details/51873633

版权

perl LWP 专栏收录该内容

111 篇文章 33 订阅 ¥39.90 ¥99.00

订阅专栏

本文介绍了Perl中的encode_json和decode_json函数，用于将Perl数据结构转换为UTF-8编码的二进制字符串，并从UTF-8编码的JSON文本中解析回Perl数据结构。示例代码展示了如何使用这两个函数进行数据转换，并强调了decode_json需要接收一个UTF-8二进制字符串作为输入。

摘要由CSDN通过智能技术生成

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&#

了解本专栏