JSON 字符串和 PERL

Question

如何在沒有“標題”的情況下讀取這樣的 JSON 字符串：

[{"SMS":"hello","NUM":12345},{"SMS":"bye","NUM":54321}]

my $json = JSON->new->utf8;
my $perl_data = $json->decode($content);
print ref($perl_data) . "\n";

返回數組。 我想要每個元素。

謝謝

Answer 1

散列引用周圍有一個數組引用。 您需要遍歷數組引用以獲取每個元素。

use Data::Dumper;

foreach my $elem (@{ $perl_data }) {
    print Dumper $elem;
}