本教程将教你如何使用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

};