Trouble With Parsing JSON with Perl

Question

I have a JSON file and I'm trying to parse it in Perl. So far I have:

use strict;
use warnings;
use JSON;

open my $fh, "/Users/arjunnayini/Desktop/map_data.json";   


my @decoded_json = @{decode_json($fh)};

But I am getting an error that I have a: "malformed JSON string, neither array, object, number, string or atom, at character offset 0 (before "GLOB(0x100804ed0)") "

I'm fairly certain that the JSON file is formatted properly, so I'm not sure where this is going wrong. Any suggestions?

Joel Berger · Accepted Answer · 2011-02-25 00:16:18Z

15

Assuming your call to JSON is correct, you need to slurp the file in first:

#!/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)};

edited Feb 25, 2011 at 0:16

answered Feb 21, 2011 at 1:47

Joel Berger

20.3k5 gold badges52 silver badges106 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

tadmc Over a year ago

or: local @ARGV = "/Users/arjunnayini/Desktop/map_data.json"; $json = <>;

Joel Berger Over a year ago

Yes there are other ways to slurp in the file first. My example shows a common idiom.

Collectives™ on Stack Overflow

Trouble With Parsing JSON with Perl

1 Answer 1

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related