If you replace
: with
=> (or even a comma), then you'd have
PON -
Perl Object Notation, also known as actual Perl code. So having that you could then do something silly like prepend our $hash_ref = then string eval or write it to a file then require it:
dat.pl
our $hash_ref =
{
"genres" => [
{
"id" => 28,
"name" => "Action"
},
{
"id" => 12,
"name" => "Adventure"
},
{
"id" => 16,
"name" => "Animation"
},
{
"id" => 35,
"name" => "Comedy"
},
{
"id" => 80,
"name" => "Crime"
},
{
"id" => 99,
"name" => "Documentary"
},
{
"id" => 18,
"name" => "Drama"
},
{
"id" => 10751,
"name" => "Family"
},
{
"id" => 14,
"name" => "Fantasy"
},
{
"id" => 36,
"name" => "History"
},
{
"id" => 27,
"name" => "Horror"
},
{
"id" => 10402,
"name" => "Music"
},
{
"id" => 9648,
"name" => "Mystery"
},
{
"id" => 10749,
"name" => "Romance"
},
{
"id" => 878,
"name" => "Science Fiction"
},
{
"id" => 10770,
"name" => "TV Movie"
},
{
"id" => 53,
"name" => "Thriller"
},
{
"id" => 10752,
"name" => "War"
},
{
"id" => 37,
"name" => "Western"
}
]
}
show_dat.pl
use Data::Dumper;
require 'dat.pl';
print Data::Dumper::Dumper($hash_ref);
