在 Perl 中使用 JSON

本教程將會(huì)教我們?nèi)绾问褂?Perl 編程語(yǔ)言編碼和解碼 JSON 對(duì)象。讓我們先來(lái)準(zhǔn)備環(huán)境以便針對(duì) JSON 進(jìn)行 Perl 編程。

環(huán)境

在開(kāi)始使用 Perl 編碼和解碼 JSON 之前，我們需要安裝 JSON 模塊，可以從 CPAN 中獲取。下載 JSON-2.53.tar.gz 或者其他任意最新版本之后請(qǐng)按照下列步驟操作：

$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install

JSON 函數(shù)

使用 Perl 編碼 JSON（encode_json）

Perl 的 encode_json() 函數(shù)可以將給定的 Perl 數(shù)據(jù)結(jié)構(gòu)轉(zhuǎn)換為 UTF-8 編碼的二進(jìn)制字符串。

語(yǔ)法：

$json_text = encode_json ($perl_scalar );
or
$json_text = JSON->new->utf8->encode($perl_scalar);

示例：

下面的例子展示了使用 Perl 將數(shù)組轉(zhuǎn)換為 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";

執(zhí)行時(shí)生成如下所示結(jié)果：

{"e":5,"c":3,"a":1,"b":2,"d":4}

下面的例子展示了如何將 Perl 對(duì)象轉(zhuǎn)換為 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";

執(zhí)行時(shí)生成如下所示結(jié)果：

{"birthdate":"8/5/1974 12:20:03 pm","name":"sachin","hobbies":"sports"}

使用 Perl 解碼 JSON（decode_json）

Perl 的 decode_json() 函數(shù)用于在 Perl 中解碼 JSON。這個(gè)函數(shù)返回從 JSON 解碼到適當(dāng) Perl 類(lèi)型的值。

語(yǔ)法：

$perl_scalar = decode_json $json_text
or
$perl_scalar = JSON->new->utf8->decode($json_text)

示例：

下面的例子展示了如何使用 Perl 解碼 JSON 對(duì)象。如果你的機(jī)器上沒(méi)有 Data::Dumper 模塊那么你需要安裝這個(gè)模塊。

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

執(zhí)行時(shí)生成如下所示結(jié)果：

$VAR1 = {
    'e' => 5,
    'c' => 3,
    'a' => 1,
    'b' => 2,
    'd' => 4
};