perl - 用 Perl 解析 JSON 的问题

Question

我有一个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文件的格式正确，所以我不确定这哪里出错了。有什么建议么？

Answer 1

假设您对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)};