to_json을 사용하는 Perl json 배열

Question

to_json을 사용하여 JSON으로 변환하려는 다음 데이터가 있습니다.

이 데이터는이

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

난 보통 내 JSON을 구축하고 변환 to_json 사용하는 펄 해시를 사용합니다. 그러나 각 iterm을위한이 json 배열을 위해 나는 아무 열쇠도 없다. 그렇다면 어떻게 변환을 위해 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" }, 
);