Perl 中使用 JSON

本章介紹如何使用 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 函式

在 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
};