Perl script - expected ' " ' or JSON isn't valid

Question

Okay, I have this method:

sub config {
my $filename = 'perl_config.txt';
my $json_text = do {
    open(my $json_fh, "<:encoding(UTF-8)", $filename)
        or die("Can't open the file!");
    local $/;
    <$json_fh>
};
my $json = JSON->new;

my $data = $json->decode($json_text);

};

Terminal (interpreter rather ;) ) says:

'"' expected, at character offset 115 (before "}") at ./proj_perl.pl line 25

Line 25 indicates on my $data = $json->decode($json_text);

EDIT: I've edited my question and cut unnecessary code. I still don't know what's wrong. My JSON file is:

{
"local_host": "localhost",
"local_port": "6000",
"save_dir": "received_files",
"my_data": "my_data.txt",
}

{ "local_host": "localhost", "local_port": "6000", "save_dir": "received_files", "my_data": "my_data.txt", } — user10573717
– user10573717, Commented Oct 28, 2020 at 8:47

tobyink · Accepted Answer · 2020-10-28 11:06:58Z

4

This is not valid JSON:

{
"local_host": "localhost",
"local_port": "6000",
"save_dir": "received_files",
"my_data": "my_data.txt",
}

JSON forbids the final comma. Javascript allows it (I think?), but JSON is based on a subset of Javascript.

JSON::PP and JSON::XS (the two backends supported by the Perl JSON module) each have a relaxed mode where they relax a few of JSON's syntactic restrictions, including this one.

my $json = JSON->new->relaxed(1);

So either fix your JSON or use relaxed mode to parse it.

edited Oct 28, 2020 at 11:06

answered Oct 28, 2020 at 10:47

tobyink

13.7k2 gold badges25 silver badges35 bronze badges

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

Collectives™ on Stack Overflow

Perl script - expected ' " ' or JSON isn't valid

1 Answer 1

Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

Comments

Your Answer

Sign up or log in

Post as a guest

Related