Perl Json数组

Question

我有json格式和文件中的json对象数组。 我试图将文件加载到Perl中，循环遍历数组中的每个项目（每个json对象）...

我已经使用了代码波纹管，但它接缝，无论我做什么，perl不是把它当作一个对象的数组，而是作为一个大对象。任何帮助将不胜感激。

my $json_text = do { 
    open(my $json_fh, "<:encoding(UTF-8)", $filename) 
     or die("Can't open \$filename\": $!\n"); 
    local $/; 
    <$json_fh> 
}; 

@objects = JSON->new->utf8->decode($json_text); 
print Dumper(@objects); 

Answer 1

这听起来像你的文件包含一个JSON数组。在这种情况下，你要decode调用将返回一个Perl数组的引用，因此，如果你写

my $objects = JSON->new->utf8->decode($json_text) 

，您可以访问每个对象为$objects->[0]，$objects->[1]等等。或者你可以用

for my $object (@$objects) { 

    # Do stuff with $object 
} 

在它们之间迭代