in reply to Iterate JSON File

Probably not the best way, but this works:

#!perl

use strict;
use warnings;
use JSON::PP;

my $json;
{
    local $/ = undef;
    open my $fh, '<', 'in.json';
    $json = <$fh>;
    close $fh;
}

my $final;
my $decoded = decode_json($json);

for my $ob ( @{$decoded->{observations}} ) {
    for my $status ( @{$ob->{status}} ) {
        for my $elem ( sort ( keys ( %{$status} ) ) ) {
            print $elem . "=" . $status->{$elem} . "\n";
        }
    print "\n";
    }
}

[download]

and outputs ...

info=%(MinorFrameCnt)%
kind=I
path=_L7=
stat=O

info=%(Offset)%
kind=I
path=_L2=
stat=O

info=%(Period)%
kind=I
path=_L1=
stat=O

info=%(_L3)% = _L8
kind=I
path=_L6=-1
stat=O

info=_L3 = %(_L8)%
kind=I
path=_L6=-2
stat=O

[download]

Replies are listed 'Best First'.
Re^2: Iterate JSON File
by mijares93 (Initiate) on Aug 03, 2018 at 14:28 UTC

    Thank you for you answer, actually it worked great

    But now i want to only search for the "kind" tag and here is what i did: 

    for my $ob ( @{$decoded->{observations}} ) {
    for my $status ( @{$ob->{status}} ) {
      for my $kind (@{$status->{info}}){
           for $elem ( sort ( keys ( %{$kind} ) ) ) {
            $final1 .= $kind->{$elem} .",";
        }
      }
     
    }
}

    [download]

    I am getting an error that says that Cant use string (...) as an ARRAY ref while "stricts refs" in use at...

    I think that is something related to deference, but i am not sure how to solve it, could you help me?

    Regards
[reply]
[d/l]

      You seem to think that  $kind is a hash reference, but it isn't; it's a string, and strings (a.k.a. "symbolic references") can't be dereferenced under strict 'refs'. It's important to know the nature of the data you're dealing with. To visualize the type and value (update: and structure!) of data, use a module like Data::Dumper (which is core, so it should already be installed), or Data::Dump (which I like more, but which is not core). So maybe something like 

      use Data::Dumper;
...
for my $kind (@{$status->{info}}){
    print Dumper $kind;
    ...
    }

      [download]
      to get started. Once you know where you are, it will be easier to see the way forward.

      Give a man a fish:  <%-{-{-{-<

[reply]
[d/l]
[select]
[reply]
[d/l]

In Section Seekers of Perl Wisdom