Re^2: Perl Array of Hashes

Replies are listed 'Best First'.
Re^3: Perl Array of Hashes by abhay180 (Sexton) on Jul 27, 2009 at 05:49 UTC
Hi, 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]

Replies are listed 'Best First'.

Re^3: Perl Array of Hashes
by abhay180 (Sexton) on Jul 27, 2009 at 05:49 UTC

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]

[reply]
[d/l]