Perl Out Of Memory when parsing json with regexp inside - json

Question

I am parsing a very simple json file and perl is running out of memory. I am using the JSON lib from cpan. I am reading the json from a file named "data.json". I am also using the File::Slurper module.
use JSON;
use File::Slurper;
my $file = read_text("data.json");
my #data = decode_json($file);
print #data;
In my data.json file I have an array of objects with regexp inside each obj.
[
{
"val": "test",
"reg": "m/^(match)/"
}
...3 more entries
]
WHen i run this it says
Out of memory!
how can i bypass this?

Answer 1

It is not clear what causes the error in your code. See the following sample code which does same job in a little different way.
use strict;
use warnings;
use feature 'say';
use JSON;
use Data::Dumper;
my $file = do { local $/; <DATA> };
my #data = decode_json($file);
say Dumper(\#data);
__DATA__
[
{
"val": "test1",
"reg": "m/^(match)/"
},
{
"val": "test2",
"reg": "m/^(match)/"
},
{
"val": "test3",
"reg": "m/^(match)/"
},
{
"val": "test4",
"reg": "m/^(match)/"
}
]
Output
$VAR1 = [
[
{
'val' => 'test1',
'reg' => 'm/^(match)/'
},
{
'val' => 'test2',
'reg' => 'm/^(match)/'
},
{
'val' => 'test3',
'reg' => 'm/^(match)/'
},
{
'reg' => 'm/^(match)/',
'val' => 'test4'
}
]
];