解码 JSON 数据答案

【问题标题】：Decoding JSON data解码 JSON 数据
【发布时间】：2013-11-25 21:40:50
【问题描述】：

这是我的 Perl 程序

package ABCD;
use base qw/JSON::XS/;

my $json = '{"alphabet" : ["a:1", "b:2", "c:3", "d:4"],"number" : ["1:a","2:b"]}';
my $decoded = decode_json($json);

当我执行此操作时，我收到类似的错误

在 test.pm 第 4 行、<STDIN> 第 1 行调用了未定义的子例程 &test::decode_json。

【问题讨论】：

你为什么要继承 JSON::XS 而不是简单地使用它？
我理解你为什么会犯这个错误，但我需要一些上下文来写一个好的解释。 (1) 刚开始学习 Perl？如果是这样：您使用什么资源（例如什么书或在线教程）？ (2) 你知道 PHP、Ruby 或 Java 等其他语言吗？如果你告诉我你已经知道什么语言，我可以用那种语言来解释。

标签： perl json

【解决方案1】：

你可以试试这个运行：

use JSON::XS;
use Data::Dumper;

my $json = '{"alphabet" : ["a:1", "b:2", "c:3", "d:4"],"number" : ["1:a","2:b"]}';
my $decoded = decode_json($json);
print Dumper($json,$decoded);

【讨论】：