我想用 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 输出以及单独变量中的对象和值 在
此先感谢
使用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'
};