Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: Perl Array of Hashes

by moritz (Cardinal)
on Jul 24, 2009 at 13:11 UTC ( [id://782970]=note: print w/replies, xml ) Need Help??


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; }

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.
      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"; }
      The print of "ENTRY-0-BUCK-0" doesnt work....what is that i am doing wrong here?
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;

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://782970]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2024-03-29 01:30 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found