JSON数组作为Perl中的哈希列表

Question

我是Perl的新手，我有一个非对称的JSON数组，如下所示：

[
{"KEY1":"14507226013384557","KEY2":"1234","KEY3":"7899"},
{"KEY1":"14507226013384557","KEY2":"1234","KEY3":"7899","KEY4":"TEST","KEY5":"TEST1"},
{"KEY1":"14507226013384557","KEY2":"1234","KEY3":"7899","KEY5":"TEST New"},
]

我想将JSON数组解析并存储在HASH列表中，然后迭代该哈希列表并检查每个KEY的值并对其进行处理。 任何想法我该怎么办？ 我使用了JSON解码，并使用了dumper进行了打印，但是在遍历它时遇到了问题。

Answer 1

my $data = decode_json($json_utf8);

for my $row (@$data) {
    for my $key (keys(%$row)) {
       say "$key: $row->{$key}";
    }

    say "";
}

参考文献：

• 迷你教程：取消引用语法
• 参考快速参考
• perlref
• perlreftut
• perldsc
• perllol