当前位置: 首页 > 工具软件 > JSON::XS > 使用案例 >

perl json模块

孟健
2023-12-01
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启用的情况下。

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6199626.html

 类似资料: