Parse JSON with PERL [duplicate]

问题:

This question already has answers here:

How can I parse JSON in Perl? (2 answers)

Closed 7 years ago.

I'd like to parse a JSON string with PERL.
My JSON string;

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

How to parse the JSON and return all objects and values.
Sample output;

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

No XML output and object and value in separate variables

Thanks in advance

回答1:

Use the JSON module. Here's an example of how to use it:

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);

Output:

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