使用Perl的JSON

本章介绍如何使用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/perl
use 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/perl

package 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_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)

示例

以下示例显示了如何使用Perl解码JSON对象.如果您的计算机上没有Data :: Dumper模块，则需要安装它.

#!/usr/bin/perl
use 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
};