Re: array of hash arrays, right?

If you like nested 'for' loops:

for my $h(@ahoa) {
   for (keys(%$h)){
       print "$_ => ";
       print "@{$h->{$_}}\n";
   }
   print "\n";
}
[download]

Slightly more verbose, but perhaps easier for you to follow:

for my $h (@ahoa) {
    my %deref = %$h;
    for my $k (keys(%deref)) {
        print "$k=> ";
        my @deref = @{$deref{$k}};
        print "@deref\n";
    }
    print "\n";
}
[download]

Hmmm .... perhaps it's not any easier to follow.

Cheers,
Rob

Comment on Re: array of hash arrays, right? Select or Download Code

Replies are listed 'Best First'.
Re^2: array of hash arrays, right? by tamaguchi (Pilgrim) on Aug 01, 2006 at 11:47 UTC
I have done it in the following way: #!/usr/bin/perl -w use strict; my @ahoa=( {1=> {'A'=>1.1, 'B'=>10.1, 'C'=>100.1}, 2=> {'A'=>2.1, 'B'=>20.1, 'C'=>200.1}, 3=> {'A'=>3.1, 'B'=>30.1, 'C'=>300.1} }, {4=> {'A'=>4.1, 'B'=>40.1, 'C'=>400.1}, 5=> {'A'=>5.1, 'B'=>50.1, 'C'=>500.1}, 6=> {'A'=>6.1, 'B'=>60.1, 'C'=>600.1} }, {7=> {'A'=>7.1, 'B'=>70.1, 'C'=>700.1}, 8=> {'A'=>8.1, 'B'=>80.1, 'C'=>800.1}, 9=> {'A'=>9.1, 'B'=>90.1, 'C'=>900.1} }, ); for(my $i=0; $i<(scalar(@ahoa)); $i++) { print "i: $i\n"; print "\n"; for my $alphakey (sort {$a <=> $b} keys %{$ahoa[$i]}) { print "\t AK $alphakey\n"; for my $betakey (sort {$a cmp $b} keys %{$ahoa[$i]{$alphakey}} +) {print "\t\t $betakey => $ahoa[$i]{$alphakey}{$betakey}\n";} } print "\n"; } [download] thank you all for responding.	[reply] [d/l]
Re^3: array of hash arrays, right? by rodion (Chaplain) on Aug 01, 2006 at 12:23 UTC
Also remember to change the name from "@ahoa" to something that doesn't conflict with the structure of the thing, since it's now an Array of Hashes of Hashes, or a AoHoH for short.	[reply]