Perlを使用してサーバーからJSON/RESTデータを解析する方法

Question

Perlを使用してサーバーからJSON出力を解析しようとしています。 RESTデータの接続とダウンロードは正常です。返されたデータを解析するだけで助けが必要です。ここに私のコードの抜粋です：

Lines: '{"players":[{"currentlyOnline":false,"timePlayed":160317,"name":"MarisaG","lastPlayed":1474208741470}]}' 
$VAR1 = { 
     'players' => [ 
        { 
         'currentlyOnline' => bless(do{\(my $o = 0)}, 'JSON::PP::Boolean'), 
         'timePlayed' => 160317, 
         'lastPlayed' => '1474208741470', 
         'name' => 'MarisaG' 
        } 
        ] 
    }; 

今でログインし、各プレーヤーのための「選手」の下に複数のエントリがあります：

my $response = HTTP::Tiny->new->get($SERVER_ADDR); 
if ($response->{success}) 
{ 
    my $html = $response->{content}; 
    @LINES = split /\n/, $html; 
    chomp(@LINES); 
    print("Lines: '@LINES'\n"); # ZZZ 
    my $decoded_json = decode_json($html); 
    print Dumper $decoded_json; 
} 
else 
{ 
    print "Failed: $response->{status} $response->{reasons}"; 
} 

そして、ここでは、結果があります。任意のヒント？

Answer 1

あなたが何を求めているのか分かりません。 decode_json()に電話をかけてJSONを解析しました。今すぐ$decoded_jsonにデータ構造があります。 Dumper()への電話でそのデータの構造が表示されます。これは、単一のキーであるplayersを持つハッシュリファレンスです。そのキーに関連付けられた値は配列参照です。参照される配列の各要素は別のハッシュです。

たとえば、すべてのプレーヤーの名前を次のようなコードで印刷することができます。

foreach (@{ $decoded_json->{players} }) { 
    say $_->{name}; 
}