使用to_json的Perl 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进行转换。

e.g。

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

谢谢，

P.S。我不想创建一个字符串并将其转换为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"    },
);