使用 PERL 解析 JSON [重复]

【问题标题】：Parse JSON with PERL [duplicate]使用 PERL 解析 JSON [重复]
【发布时间】：2013-03-11 09:01:10
【问题描述】：

我想用 PERL 解析 JSON 字符串。
我的 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 输出以及单独变量中的对象和值

提前致谢

【问题讨论】：

尽管另一个问题是面向 XML 输出的，但获得更多投票的答案是有用的。和下面@TLP 的回答基本一样。

标签： json perl parsing

【解决方案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'
        };

【讨论】：

@Robertico 所以把它们放在不同的变量中。如果您对基本的 perl 数据结构有疑问，也许您应该查阅一些文档。
@Robertico 我向您展示了如何解析 JSON，这是您的问题。如果您要我为您编写整个程序，我将不得不向您收取我的时间。
@Robertico, for my $key (keys %$hash) { my $val = $hash->{$key}; ... }