Printing Hash of Array of Arrays

[Deepu]

Hi All,

How to print hash of array of arrays without using Data:umper.

I am trying to print

%hash = (
FILE1 => [
[
STATE1
STATE2
STATE3
],
[
STATEX
STATEA
STATE4
]
],

FILE2 => [
[
STATE2
STATE5
],

and so on.

I tried:

foreach my $key (sort keys %hash) {
print "$key\n"; ## - It prints the file names correctly as keys

for $i (0 .. $#{$hash{$key}}) {
print "$i: $hash{$key}[$i]";
}
}

But now i get output like:

0: ARRAY(0x5fdbf0)
and so on.

Please help me on this.

Thanks
Deep

 

[Paul Lalli]

How to print hash of array of arrays without using Data:umper.

I am trying to print

%hash = (
FILE1 => [
[
STATE1
STATE2
STATE3
],
[
STATEX
STATEA
STATE4
]
],

FILE2 => [
[
STATE2
STATE5
],

and so on.

I tried:

foreach my $key (sort keys %hash) {
print "$key\n"; ## - It prints the file names correctly as keys

for $i (0 .. $#{$hash{$key}}) {
print "$i: $hash{$key}[$i]";
}
}

You said you have a hash of arrays of arrays. So %hash is the hash,
$hash{$key} is a reference to the first-level array, and
$hash{$key}[$i] is a reference to the second level array. You need to
dereference this and loop through the results, just as you did for the
first level:

foreach my $key (sort keys %hash) {
print "$key\n";
for my $i (0 .. $#{$hash{$key}) {
print " Array $i\n";
foreach my $elem (@{$hash{$key}[$i]}) {
print " $elem\n";
}
}
}

Note that the above syntax is just to demonstrate how to do it
following your lead. Were I to write this, I would probably not use a
loop for the final array level, and just print all the array elements
directly:
foreach my $key (sort keys %hash) {
print "$key\n";
for my $i (0 .. $#{$hash{$key}) {
print " Array $i: @{$hash{$key}[$i]}\n";
}
}

Hope this helps,
Paul Lalli

 

[it_says_BALLS_on_your forehead]

Hi All,

How to print hash of array of arrays without using Data:umper.

I am trying to print

%hash = (
FILE1 => [
[
STATE1
STATE2
STATE3
],
[
STATEX
STATEA
STATE4
]
],

FILE2 => [
[
STATE2
STATE5
],

and so on.

I tried:

foreach my $key (sort keys %hash) {
print "$key\n"; ## - It prints the file names correctly as keys

for $i (0 .. $#{$hash{$key}}) {
print "$i: $hash{$key}[$i]";
}
}

But now i get output like:

0: ARRAY(0x5fdbf0)
and so on.

use Data:umper;

print Dumper( \%hash );

 

[Paul Lalli]

Deepu wrote:

use Data:umper;

print Dumper( \%hash );

I can't tell if you're trying to be funny or not. . .

Paul Lalli

 

[John W. Krahn]

How to print hash of array of arrays without using Data:umper.

I am trying to print

%hash = (
FILE1 => [
[
STATE1
STATE2
STATE3
],
[
STATEX
STATEA
STATE4
]
],

FILE2 => [
[
STATE2
STATE5
],

and so on.

I tried:

foreach my $key (sort keys %hash) {
print "$key\n"; ## - It prints the file names correctly as keys

for $i (0 .. $#{$hash{$key}}) {
print "$i: $hash{$key}[$i]";
}
}

But now i get output like:

0: ARRAY(0x5fdbf0)
and so on.

You have to dereference the array reference:

for my $key ( sort keys %hash ) {
print "$key\n";
for my $array_ref ( @{ $hash{ $key } } ) {
print "@$array_ref";
}
}



John

 

[Ted Zlatanov]

How to print hash of array of arrays without using Data:umper.

It's useful here to classify things into hashes, arrays, and
everything else.

dump_container($hash_of_arrays_of_arrays);

sub dump_container
{
my $ref = shift @_;

if (ref $ref eq 'ARRAY')
{
... do something with @$ref and call dump_container on each element ...
}
elsif (ref $ref eq 'HASH')
{
... do something with %$ref and call dump_container on each value ...
}
else
{
print "Saw element of type ", ref $ref, "and data ", "$ref\n";
}
}

Note that this will handle any combination of container data
structures, as long as they are arrays and hashes. Look at "perldoc
-f ref" for more information.

Avoiding Data:umper is weird, but I'm sure you have good reasons...

Ted