使用 Perl 的 JSON

本章介绍如何使用 Perl 编程语言对 JSON 对象进行编码和解码。让我们从准备环境开始使用 Perl for JSON 进行编程开始。

环境

在开始使用 Perl 对 JSON 进行编解码之前，您需要安装 JSON 模块，该模块可以从 CPAN 获取。下载 JSON-2.53.tar.gz 或任何其他最新版本后，请按照以下步骤操作 -

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/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";

在执行时，这将产生以下结果 -

以下示例显示了如何将 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";

在执行时，它将产生以下结果 -

在 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：:D umper 模块，则需要在此处安装 Data：umper 模块。

#!/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);

在执行时，它将产生以下结果 -