34 lines
643 B
Perl
34 lines
643 B
Perl
|
use utf8;
|
||
|
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
|
||
|
|
use JSON;
|
||
|
|
use Data::Dumper;
|
||
|
|
|
||
|
|
my $in;
|
||
|
|
{
|
||
|
|
open(my $file, "<", "./data/data-raw-dump.json") or die "Can't open data-raw-dump.json";
|
||
|
|
local $/;
|
||
|
|
$in = <$file>;
|
||
|
|
close $file;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $data = decode_json($in);
|
||
|
|
|
||
|
|
# my $data = @($data_raw->(data)(children));
|
||
|
|
|
||
|
|
print Dumper($data);
|
||
|
|
|
||
|
|
my @list = ($data);
|
||
|
|
|
||
|
|
print "$data";
|
||
|
|
|
||
|
|
# foreach my $values (@list){
|
||
|
|
# foreach my $value (@$values) {
|
||
|
|
# print "Value =\t\tValue:\t" "$value->{?}->{'subgroup'}" "\n";
|
||
|
|
# }
|
||
|
|
# }
|
||
|
|
|
||
|
|
# open(my $out, ">", "./data/out-json-test.json") or die "Can't open out-json-test.json";
|
||
|
|
# close $out or die "$out: $!";
|