json - JSON を Perl でパースする

Question

JSON 文字列を PERL で解析したいと思います。
私の JSON 文字列;

{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999}

JSON を解析し、すべてのオブジェクトと値を返す方法。
サンプル出力;

to_id: 0
message: This is a sample
message_id: 1000
from_id: 999

個別の変数に XML 出力とオブジェクトと値はありません

よろしくお願いします

Answer 1

モジュールを使用しJSONます。使用方法の例を次に示します。

use strict;
use warnings;
use Data::Dumper;
use JSON;

my $str = q|{"to_id": 0, "message": "This is a sample", "message_id": 1000, "from_id": 999}|;

print Dumper from_json($str);

出力：

$VAR1 = {
          'from_id' => 999,
          'message_id' => 1000,
          'to_id' => 0,
          'message' => 'This is a sample'
        };