Json-perl-example
提供:Dev Guides
Perlを使用したJSON
この章では、Perlプログラミング言語を使用してJSONオブジェクトをエンコードおよびデコードする方法について説明します。 Perl for JSONを使用したプログラミングを開始するための環境の準備から始めましょう。
環境
Perlを使用してJSONのエンコードとデコードを開始する前に、CPANから取得できるJSONモジュールをインストールする必要があります。 JSON-2.53.tar.gzまたはその他の最新バージョンをダウンロードしたら、以下の手順に従ってください-
$tar xvfz JSON-2.53.tar.gz
$cd JSON-2.53
$perl Makefile.PL
$make
$make install
JSON関数
Function | Libraries |
---|---|
encode_json | Converts the given Perl data structure to a UTF-8 encoded, binary string. |
decode_json | Decodes a JSON string. |
to_json | Converts the given Perl data structure to a json string. |
from_json | Expects a json string and tries to parse it, returning the resulting reference. |
convert_blessed | Use this function with true value so that Perl can use TO_JSON method on the object’s class to convert an object into 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
};