in reply to Perl Array of Hashes

One thing that helped me when building / understanding hashes, arrays, hashes of hashes, arrays of arrays, etc, was Data::Dumper as in...

use strict;
use warnings;
use Data::Dumper;

[download]

This would have shown you the structure of your "array of hashes" immediately.

Replies are listed 'Best First'.
Re^2: Perl Array of Hashes
by abhay180 (Sexton) on Jul 27, 2009 at 05:55 UTC
    Hello, Thnaks a ton for all ur suggestions. I wanted to do little more here... 
    
my $k=0,$str="";
 for(my $i=0; $i<4;$i+=1)  { 

    @entry=undef;
    for my $j (0..7) { 
    $h{"BUCK_$j"} = $bucket[$k+$j]; 
    push @entry,\%h;
    }
    $hash_table[$i] = { ENTRY  => [@entry]};
    $k+=8;
 } #end of for i

for(my $i=0; $i<4;$i+=1)  {
    print "ENTRY-0-BUCK-0::", 
        $hash_table[$i]->{ENTRY}->{BUCK_0}, "\n"; 
}

    [download]
    The print of "ENTRY-0-BUCK-0" doesnt work....what is that i am doing wrong here?
[reply]
[d/l]

      Did you use warnings and use strict when you ran the code?

      But that aside, you are doing some strange things:

      my $k=0,$str="";
 for(my $i=0; $i<4;$i+=1)  { 

    @entry=undef;
    for my $j (0..7) { 
        $h{"BUCK_$j"} = $bucket[$k+$j]; 
        push @entry,\%h;
    }

      [download]

      The loop above will add 8 identical references to %h to @entry.

          $hash_table[$i] = { ENTRY  => [@entry]};
    $k+=8;
 } #end of for i

for(my $i=0; $i<4;$i+=1)  {
    print "ENTRY-0-BUCK-0::", 
        $hash_table[$i]->{ENTRY}->{BUCK_0}, "\n";

      [download]

      You can't address $hash_table like that since it is an array of hash references containing just the key ENTRY (which is a warning sign) that has the value array reference containing hash references.

      }

      [download]

      Did you try following the advice and tried Data::Dumper on, say, (updated) @hash_table?

[reply]
[d/l]
[select]
        Yes, By using Dumper,I was able to correctly construct the data-structure i needed. Thanks a lot for all ur help.
[reply]
        Yes, with Dumper, i am able to generate data-structure of my choice. Thanks a ton.
[reply]

In Section Seekers of Perl Wisdom