Perlで配列を要素にもつJSONを生成したい

Question

JSONの要素に配列を持ちたいと思っています。JSONの作成にはPerlを使っています。イメージとして以下のようなコードを作ってみましたが、nameの要素が”ARRAY(0xXXXXXX)"などとなるだけで動きません。

#!/usr/bin/perl

use strict;
use JSON;
use JSON::Types;

my @id = ("0", "1", "2");
my @name = (["aaa"], ["bbb", "ccc"], ["ddd", "eee", "fff"]);

my $all_data;
for(my $i = 0; $i < @id; $i ++){

    my $json_hashref = { id => string $id[$i],
                         name => string $name[$i]};
    push @$all_data, $json_hashref;
}

# JSONへの変換
my $json = JSON->new();
my $js = $json->encode($all_data);

print $js, "\n";

そもそもJSONの要素に、配列を持つことは可能でしょうか？ 可能であれば、Perlで生成する場合どのように書けばいいでしょうか？

Answer 1

stringを指定しなければそのまま配列を出力しないでしょうか。

my $json_hashref = { id => string $id[$i],
                     name => $name[$i]};

[{"id":"0","name":["aaa"]},{"id":"1","name":["bbb","ccc"]},{"id":"2","name":["ddd","eee","fff"]}]

Comments

[HajimeHamada]

その通りでした。こちらでも確認しました。てっきりJSONでは配列は扱えないのかと、勘違いしてしまいました。ありがとうございました。

Answer 2

$name[0]は"aaa"ではなく["aaa"]、つまり、文字列ではなく無名配列へのリファレンスなのです。にもかかわらずstringをかましているので”ARRAY(0xXXXXXX)"のような「文字列」に変換されてしまいます。

リファレンスの扱いで混乱した時はData::Dumperで一つ一つ確認してみるのも手です。下のような感じで。

#!/usr/bin/perl

use strict;
use JSON;
use JSON::Types;
use Data::Dumper;

my @id = ("0", "1", "2");
my @name = (["aaa"], ["bbb", "ccc"], ["ddd", "eee", "fff"]);

my $all_data;
for(my $i = 0; $i < @id; $i ++){

    my $json_hashref = { id => string $id[$i],
                         name => $name[$i]}; # <-- FIX !!
    push @$all_data, $json_hashref;
}

print "Let's check the structure of $all_data\n";
print Dumper $all_data;

my $json = JSON->new();
my $js = $json->encode($all_data);

print "Final result\n";
print $js, "\n";

Comments

[HajimeHamada]

stringのせいでした。失礼しました。少し複雑なデータ形式を使うと混乱することがよくあるので、Data::Dumperも参考になります。ありがとうございました。

Answer 3

そもそもJSONの要素に、配列を持つことは可能でしょうか？

はい、可能です。JSONの取り扱いを含めて、下記の記事が参考になると思います。
Perl - JSONモジュール

---

追記しました
コードについては、suyama様のご回答が適切かと思います。
私の方でも確認させていただきました。どうもありがとうございました。

JSONにおける配列も以下のRFC文書の「2.3. Arrays」で述べられていましたので、規約として仕様はOKなはずです。
RFC4627 - JSON

JSON reference

Comments

[HajimeHamada]

早速のご回答、ありがとうございます。質問が言葉不足だったかもしれません。

示していただいた記事を読みますと、
'[{"name" : "Ken", "age" : 19}, {"name" : "Ken", "age" : 25}]'
というように、各要素を配列で持っているだけのようです。私が実現したいのは、JSONで
'[{"name" :[ "Ken"], "age" : 19}, {"name" : ["Satoshi", "Tadashi"], "age" : 25}]'
というように、各要素の内側に配列を入れることができるかということなのですが。

[dodox86]

質問の内容を正しく把握し切れていなくてすみません。追記しましたが、回答としてはsuyama様のものが適切かと思います。よろしくお願いします。

[HajimeHamada]

ご丁寧にありがとうございます。規約としてもOKとのこと、大変参考になります。