It is usual to state what problem you are having, or how the results of your code differ from your expectations.

However, looking at your code, I see you are trying to iterate the array held in the first element of the entryArray array:

@{ $json_text->{balArray}[0]{containerArray}[0]{entryArray}[0] }
...........................................................^^^
[download]

But looking at the json, the elements of the entryArray array, do not contain arrays, they contain hashes.

If you were using strict and warnings, you'd be getting a "Not an ARRAY reference at .." message pointing at the above line, which would be a strong clue to the solution of your problem.

If you were using strict and warnings, you'd be getting a "Not an ARRAY reference at .." message pointing at the above line, which would be a strong clue to the solution of your problem.

neither strict nor warnings are required

$ perl -e " $f = { }; $f->[0]; "
Not an ARRAY reference at -e line 1.
[download]

Good point.

---

With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

RIP Neil Armstrong

Your use of Data::Dumper to dump the data you're working with is helpful to us. It proves once and for all that the data you're dealing with isn't valid JSON.

use strict;
use warnings;
use Data::Dumper;
use File::Slurp;
use JSON::Tiny;
use feature qw/say/;

my $json = read_file(\*DATA);

my $j = JSON::Tiny->new;

my $decoded = $j->decode($json);

if( defined $decoded ) {
  say Dumper $decoded;
}
else {
  say $j->error;
}

__DATA__
{
  "alertCounts" : [
    {
      "count" : 5,
      "rule" : "rule1"
    },
    {
      "count" : 16,
      "rule" : "rule2"
    }  
  ],
  "balArray" : [
    {
       "containerArray" : [],
       "name" : "user_ip"
    },
    {
      "containerArray" : [
        {
          "entryArray" : [
            {
              "action" : "flag",
              "expires" : "00:00:00",
              "hitsSinceAdded" : 56,
              "name" : "/my/page",
              "priority" : 4,
              "rule" : "rule1",
              "timestamp" : "15:28:40.150"
             }
           ],
          "name" : "192.168.1.100"
        },
        {
          "entryArray" : [
            {
              "action" : "flag",
              "expires" : "00:00:00",
              "hitsSinceAdded" : 185,
              "name" : "/my/page",
              "priority" : 4,
              "rule" : "rule2",
              "timestamp" : "15:12:55.961"
            }
          ],
          "name" : "192.168.1.101"
        }
[download]

...and the output...

Malformed JSON: Expected comma or right square bracket while parsing a
+rray before end of data
[download]

Or once again, since you're using JSON:

, or ] expected while parsing array, at character offset 1004 (before 
+"(end of string)") at ./mytest.pl line 13.
[download]

If you have valid JSON, post your valid JSON. If you have invalid JSON, don't expect code that parses JSON to work.

I change the code some see below.



#JSON
my $json = new JSON;

my %json_text = %{ $json->decode($content) };

while (my ($key, $value) = each %json_text) {
     print "$key = $value\n";
     } 

close $output_fh;
[download]



OUTPUT I AM GETTING:

alertCounts = ARRAY(0x32dadd4)
balArray = ARRAY(0x34a7e94)

No, you're not getting the output you show using the JSON you posted. Look at the #@%!^ JSON you posted. It is not capable of resulting in the output you are showing. Here's what I get when I test it:

use strict;
use warnings;
use File::Slurp;
use JSON;

my $json = read_file(\*DATA);

my $j = JSON->new;

my %json_text = %{ $j->decode($json) };

while( my ( $key, $value ) = each %json_text ) {
  print "$key = $value\n";
}



__DATA__
{
   "alertCounts" : [
      {
         "count" : 5,
         "rule" : "rule1"
      },
      {
         "count" : 16,
         "rule" : "rule2"
      }  
   ],
   "balArray" : [
      {
         "containerArray" : [],
         "name" : "user_ip"
      },
      {
         "containerArray" : [
            {
               "entryArray" : [
                  {
                     "action" : "flag",
                     "expires" : "00:00:00",
                     "hitsSinceAdded" : 56,
                     "name" : "/my/page",
                     "priority" : 4,
                     "rule" : "rule1",
                     "timestamp" : "15:28:40.150"
                  }
               ],
               "name" : "192.168.1.100"
            },
            {
               "entryArray" : [
                  {
                     "action" : "flag",
                     "expires" : "00:00:00",
                     "hitsSinceAdded" : 185,
                     "name" : "/my/page",
                     "priority" : 4,
                     "rule" : "rule2",
                     "timestamp" : "15:12:55.961"
                  }
               ],
               "name" : "192.168.1.101"
            }
[download]

And the output:

, or ] expected while parsing array, at character offset 1206 (before 
+"(end of string)") at ./mytest.pl line 12.
[download]

I don't know how many more times you need someone to tell you that the sample input you're posting isn't capable of producing any reasonable output because it's broken. Post real JSON that isn't malformed, and we can begin to talk about your code.




Dave