I haven't actually used the module, but I'd at least take a look at
JSON::Path.
It's like XPath, but for JSON. I *have* used JSONpath before, just not in
Perl. If you're interested in JSONPath, check out
http://goessner.net/articles/JsonPath/.
On Fri, Mar 10, 2017 at 8:57 AM, Marios lyberak
wro
#!/usr/bin/perl
use strict;
use warnings;
use JSON; # version 2.90
my $hash = from_json( test_json_string() );
for my $key ( keys %$hash ) {
my $filename = sprintf "%.06d.json", $key;
my $subhash = $hash->{ $key };
open my $fh, '>', $filename or die "Can't open $filename: $!";
pr