Массив Perl json с использованием to_json

Question

У меня есть следующие данные, которые я хочу преобразовать в JSON, используя to_json.

Данные

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

Я обычно использую perl-хэш для сборки моего json и to_json для конвертации. Но для этого массива json для каждого iterm у меня нет ключа. Так как я могу использовать to_json для конвертации.

например.

  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"    },
);