本教程将教你如何使用Perl编程语言进行编码和解码JSON对象。让我们开始准备Perl编程环境并使用JSON开
环境
开始使用Perl编码和解码JSON之前,需要安装 JSON模块,可以从CPAN获得。下载 JSON-2.53.tar.gz 或任何其他最新版本,请遵循以下步骤:
$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install
JSON 函数
函数
程序库
encode_json
Perl数据结构转换为UTF-8编码,二进制串
decode_json
一个JSON字符串进行解码
to_json
Perl数据结构转换为JSON字符串
from_json
JSON字符串,并试图解析它,返回结果的参考
convert_blessed
使用此函数的 true 值,以便Perl可以使用TO_JSON的方法将对象转换成JSON对象的类。
在Perl中编码JSON(encode_json)
Perl encode_json的() 函数Perl数据结构转换成一个UTF-8 编码的二进制字符串。
语法:
$json_text=encode_json($perl_scalar);or$json_text=JSON->new->utf8->encode($perl_scalar);
实例
下面的例子显示阵列在JSON用Perl:
#!/usr/bin/perluseJSON;my%rec_hash=('a'=>1,'b'=>2,'c'=>3,'d'=>4,'e'=>5);my$json=encode_json \%rec_hash;print"$json\n";
在执行过程中,这将产生以下结果:
{"e":5,"c":3,"a":1,"b":2,"d":4}
下面的示例显示了如何Perl对象可以转换成JSON:
#!/usr/bin/perlpackageEmp;subnew{my$class=shift;my$self={name=>shift,hobbies=>shift,birthdate=>shift,};bless $self,$class;return$self;}subTO_JSON{return{%{shift()}};}packagemain;useJSON;my$JSON=JSON->new->utf8;$JSON->convert_blessed(1);$e=newEmp("sachin","sports","8/5/1974 12:20:03 pm");$json=$JSON->encode($e);print"$json\n";
在执行过程中,这将产生以下结果:
{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}
解码JSON在Perl中(decode_json)
Perl decode_json()函数用于解码JSON在Perl中。此函数返回值从json解码适当的Perl类型
语法:
$perl_scalar=decode_json $json_textor$perl_scalar=JSON->new->utf8->decode($json_text)
实例
下面的例子显示了 Perl 如何用来解码JSON 对象。在这里,需要安装Data::Dumper模块
#!/usr/bin/perluseJSON;useData::Dumper;$json='{"a":1,"b":2,"c":3,"d":4,"e":5}';$text=decode_json($json);printDumper($text);
在执行过程中,这将产生以下结果:
$VAR1 = {
'e' => 5,
'c' => 3,
'a' => 1,
'b' => 2,
'd' => 4
};