我有一个JSON文件,正在尝试在Perl中解析它。到目前为止,我有:
use strict;
use warnings;
use JSON;
open my $fh, "/Users/arjunnayini/Desktop/map_data.json";
my @decoded_json = @{decode_json($fh)};
但是我收到一个错误,我有一个:
“格式错误的JSON字符串,数组,对象,数字,字符串或原子都不位于字符偏移量0(在“GLOB(0x100804ed0)”之前))”
我相当确定JSON文件的格式正确,所以我不确定这哪里出错了。有什么建议么?
最佳答案
假设您对JSON的调用正确,则需要先将文件插入到文件中:
#!/usr/bin/perl
use strict;
use warnings;
use JSON;
my $json;
{
local $/; #enable slurp
open my $fh, "<", "/Users/arjunnayini/Desktop/map_data.json";
$json = <$fh>;
}
my @decoded_json = @{decode_json($json)};
关于perl - 用 Perl 解析 JSON 的问题,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/5061472/