JSON - JSON (JavaScript Object Notation) encoder/decoder
简介:
use JSON; # imports encode_json, decode_json, to_json and from_json.
# simple and fast interfaces (expect/generate UTF-8)
$utf8_encoded_json_text = encode_json $perl_hash_or_arrayref;
$perl_hash_or_arrayref = decode_json $utf8_encoded_json_text;
# OO-interface
$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
# If you want to use PP only support features, call with '-support_by_pp'
# When XS unsupported feature is enable, using PP (de|en)code instead of XS ones.
use JSON -support_by_pp;
# option-acceptable interfaces (expect/generate UNICODE by default)
$json_text = to_json( $perl_scalar, { ascii => 1, pretty => 1 } );
$perl_scalar = from_json( $json_text, { utf8 => 1 } );
# Between (en|de)code_json and (to|from)_json, if you want to write
# a code which communicates to an outer world (encoded in UTF-8),
# recommend to use (en|de)code_json.
这个版本 是兼容JSON::XS 2.34 和以后版本
注意:
JSON::PP 是很早包含在JSON发布版本, 在Perl 5.14 变成一个核心模块。
对于这个会话,JSON::PP 是从JSON 发布版本中移除, 现在可以在Perl5的库中发现
JSON 是一个简单的数据类型:
这个模块转换Perl的数据结构到JSON
JSON::XS 是最快的和最适当的JSON模块在CPAN ,必须被编译和安装在你的环境
JSON::PP 是一个纯-Perl的模块
区分 模块名'JSON'和格式JSON, 前者是引号通过C<>(它的结果变化和你使用的介质),
Module name : JSON
Format type : JSON
FEATURES
1.正确处理unicode
2. 这个模块(即后端模块) 知道如何处理Unicode,如何和何时做, 甚至记录正确意味着什么
尽管有局限性,这个功能是可用的在Perl 5.6以后
JSON::XS 需要Perl 5.8.2(但是正确工作在5.8.8或者以后版本),
因此在老的版本JSON 应该调用JSON::PP 作为后台
3. 往返的完整性:
当你持续一个perl 数据结果只使用被JSON和PERL支持的数据类型,
描述的数据类型结构是相同的在Perl层面。
JSON 的严格检查的正确性
没有猜测,没有产生非法的JSON 文本, 只有JSON 是被接收作为输入
fast
模块返回一个 JSON::XS 对象本身。相比其他的JSON模块和其他的serialisers 比如存储,
simple to use 使用简单
该模块即有一个简单的函数接口以及一个面向对象的接口
合理通用输出格式
你可以选择在最紧凑的单行格式可能的选择(很好的对于简单行基于协议),
一个纯ASCII 格式(对于当你的传输不是9位的,仍旧支持整个Unicode 范围0
函数接口:
一些文件被辅助,从函数接口修改
encode_json
$json_text = encode_json $perl_scalar
转换给定的perl 数据结构到一个UTF-8编码的,2进制字符串
decode_json
$perl_scalar = decode_json $json_text
和encode_json 相反,期望是一个UTF-8（binary) 字符串和尝试解析一个UTF-8编码的JSON文本,
返回一个结果引用
如何从外部解码数据和编码数据到外部
这个章节假设你的Perl版本是5.8或者更高
如果你知道一个JSON文本从外部世界 -a 网络,一个文件格式等等,
是被编码成UTF-8,,你需要使用decode_json 或者JSON模块对象在启用UTF8的情况下。
解码结果会包含UNICODE 字符串
# from network
my $json = JSON->new->utf8;
my $json_text = CGI->new->param( 'json_data' );
my $perl_scalar = $json->decode( $json_text );
# from file content
local $/;
open( my $fh, '<', 'json.data' );
$json_text = <$fh>;
$perl_scalar = decode_json( $json_text );
如果外部数据不是UTF-8编码的,首先你必须decode 它的结果变化和你使用的介质
use Encode;
local $/;
open( my $fh, '<', 'json.data' );
my $encoding = 'cp932';
my $unicode_json_text = decode( $encoding, <$fh> ); # UNICODE
# or you can write the below code.
#
# open( my $fh, "<:encoding($encoding)", 'json.data' );
# $unicode_json_text = <$fh>;
在这种情况下, $unicode_json_text 当然是UNICODE string.
因此你不需要使用 decode_json nor JSON module object 启用utf8.
现在, 你需要转换你的$perl_scalar 为JSON 数据和发送它到一个外部世界 -a 网络 或者文件内容
你的数据通常包含UNICODE 字符串和你需要转换数据为UTF-8编码的,
如果 $perl_scalar不包含UNICODE 但是$encoding-encoded字符串由于某些原因,
然后它的字符串是被对待为latin1 在perl里(因为它不关心你的$encoding).
你不能使用 encode_json nor JSON 模块对象在UTF8启用的情况下。
