解码JSON数据

Question

这是我的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::decode_json在test.pm第4行，<STDIN>第1行调用。

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