Perl json数组使用to_json

Question

我有一个以下数据，我想用to_json将它转换为JSON。

的数据是

[ 
    {"key":"firstname", "val":"Scott"}, 
    {"key":"age",  "val":"old"}, 
    {"key":"haircolor", "val":"na"}, 
] 

我通常使用Perl中的哈希建立我的JSON和使用to_json转换。但是对于每个iterm的这个json数组，我没有密钥。那么我怎样才能使用to_json进行转换。

例如

my %data = (
     "key" => "firstname", 
     "val" => "Scott", 
     ... 
    ) 

感谢，

附：我不想制作一个字符串并将其转换为json。但如果我必须，我会的。 :-)

Answer 1

my $data=[ 
      { key => "firstname", 'val' , "Scott" }, 
      { "key" => "age",  "val" => "old" }, 
      { 'key', 'haircolor', val => "na" }, 
     ]; 

my @data = (
    { key => "firstname", val => "Scott" }, 
    { key => "age",  val => "old" }, 
    { key => 'haircolor', val => "na" }, 
);