perl - ハッシュの配列をjsonに変換します

Question

次のように作成したハッシュの配列を変換したいと思います。

while(...)
{
    ...
    push(@ranks, {id => $id, time => $time});
}

JSONへ：

use JSON;
$j = new JSON;
print $j->encode_json({ranks => @ranks});

しかし、これを出力しています：

{"ranks":{"time":"3","id":"tiago"},
 "HASH(0x905bf70)":{"time":"10","id":"bla"}}

ご覧のとおり、ハッシュを書き込むことができず、配列もありません...

次のようなJSON文字列を出力したいと思います。

 {"ranks":[{"time":"3","id":"tiago"},
           {"time":"40","id":"fhddhf"},
           {"time":"10","id":"bla"}]}

score 7 · Accepted Answer

これらはすべて同じです。

ranks => @ranks

'ranks', @ranks

'ranks', $ranks[0], $ranks[1], $ranks[2]

ranks => $ranks[0], $ranks[1] => $ranks[2]

したがって、1つの要素でハッシュを作成する場合は、2つの要素でハッシュを作成します。

配列をハッシュ値として使用しようとしましたが、ハッシュ値はスカラーのみになります。ただし、参照はスカラーであるため、配列への参照をハッシュ値として使用するのが一般的であり、これがencode_json期待されることです。

print $j->encode_json( { ranks => @ranks } );

する必要があります

print $j->encode_json( { ranks => \@ranks } );

score 6 · Accepted Answer

print $j->encode_json({ranks => @ranks});

する必要があります：

print $j->encode_json({ranks => \@ranks});

score 3 · Accepted Answer

配列を参照として渡してみてください。

to_json({ranks => \@ranks},{ascii => 1,pretty => 1});

3 に答える 3