json 模块

JSON:

JSON-JSON (JavaScript 对象标记)  编码/解码

简介:

 use JSON; # imports encode_json, decode_json, to_json and from_json.


##简单和快速接口(期望/生产 UTF-8）

 $utf8_encoded_json_text = encode_json $perl_hash_or_arrayref;

 $perl_hash_or_arrayref  = decode_json $utf8_encoded_json_text;


面对对象接口:

 $json = JSON->new->allow_nonref;
 
 $json_text   = $json->encode( $perl_scalar );
 $perl_scalar = $json->decode( $json_text );
 
 $pretty_printed = $json->pretty->encode( $perl_scalar ); # pretty-printing





生产json 格式:

[root@dr-mysql01 ~]# cat a3.pl 
use JSON qw/encode_json decode_json/;    
my $data = [    
    {  
        'name' => '灰灰',  
        'age' => 19  
    },  
    {  
        'name' => '丽丽',  
        'age' => 25  
    }  
];


my $json_out = encode_json($data);    
print $json_out;  
print "
";  
You have mail in /var/spool/mail/root
[root@dr-mysql01 ~]# perl a3.pl 
[{"age":19,"name":"灰灰"},{"name":"丽丽","age":25}]


[root@dr-mysql01 ~]# cat a3.pl 
use JSON qw/encode_json decode_json/;    
use Encode;

my $data = [    
    {  
        'name' => '灰灰',  
        'age' => 19  
    },  
    {  
        'name' => '丽丽',  
        'age' => 25  
    }  
];

 $json = JSON->new->allow_nonref;
 
 $json_out   = $json->encode( $data );

print $json_out;  
print "
";  
[root@dr-mysql01 ~]# perl a3.pl 
[{"age":19,"name":"灰灰"},{"name":"丽丽","age":25}]






encode_json：

$json_text = encode_json $perl_scalar


转换给定的perl 数据结构为一个UTF-8 encoded,binary 字符串:

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


decode_json

$perl_scalar = decode_json $json_text


与encode_json 相反,期望一个UTF-8(2进制的)字符串和尝试 解析一个UTF-8 encoded JSON 文本,

返回一个结果引用