in reply to Perl Array of Hashes

You're not creating a hash, but a string that looks like a hash to you.

Try something along these lines: 

my @xentry;
for (0..100) {
   my %h;
   for my $j (0..4) {
       $h{"BUCK_$j"} = 'JUNK';
   }
   push @xentry, \%h;
}

[download]

Read perldata and perlreftut for more introductory material.

Replies are listed 'Best First'.
Re^2: Perl Array of Hashes
by abhay180 (Sexton) on Jul 24, 2009 at 13:14 UTC
    That was indeed very quick. Thanks a lot. It works.
[reply]
      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]
Re^2: Perl Array of Hashes
by mzedeler (Pilgrim) on Jul 24, 2009 at 18:41 UTC

    ...and the short version:

    my @xentry;
push @xentry, { map { ("BUCK_$_" => 'JUNK') } (0 .. 4) } for 0 .. 100;

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom