本章介绍如何使用Perl编程语言对JSON对象进行编码和解码.让我们从准备环境开始使用Perl for 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./td> |
在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);
示例
以下示例显示了带有Perl : 的JSON下的数组;
#!/usr/bin/perluse JSON;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/perlpackage Emp;sub new { my $class = shift; my $self = { name => shift, hobbies => shift, birthdate => shift, }; bless $self, $class; return $self;}sub TO_JSON { return { %{ shift() } }; }package main;use JSON;my $JSON = JSON->new->utf8;$JSON->convert_blessed(1);$e = new Emp( "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"}解码Perl中的JSON(decode_json)
Perl decode_json()函数用于解码Perl中的JSON.此函数将从json解码的值返回到适当的Perl类型.
语法
$perl_scalar = decode_json $json_textor$perl_scalar = JSON->new->utf8->decode($json_text)
示例
以下示例显示了如何使用Perl解码JSON对象.如果您的计算机上没有Data :: Dumper模块，则需要安装它.
#!/usr/bin/perluse JSON;use Data::Dumper;$json = '{"a":1,"b":2,"c":3,"d":4,"e":5}';$text = decode_json($json);print Dumper($text);执行时，它将产生以下结果 :
$VAR1 = { 'e' => 5, 'c' => 3, 'a' => 1, 'b' => 2, 'd' => 4};