foreach keys over multiple hashes

[c]

use strict;

my %one; my %two; my %three;

my @hashes = qw(one two three);

for my $i(@hashes) {

  for my $j(keys %$i) {

    #do something

  }

}

I get the big gong show 'no strict refs' error on this one. how can i look through a set of hashes using keys, yet keeping them seperate in the loops?

humbly -c

[jeffa]

By using references:

use strict;

my %one; my %two; my %three;

my $hashes = [\%one, \%two, \%three];

for (@$hashes) {
  for my $k (keys %$_) {
    #do something
  }
}

UPDATE: storing them in an array reference is not necessary, i just wanted to show how to do so. :) But you do have to store the hashes as reference or else they will 'flatten' into the array that contains them.

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

[Aristotle]

All else unchanged: my @hashes = (\%one, \%two, \%three); ____________
Makeshifts last the longest.

[thelenm]

Instead of using soft symbolic references, you could use hard references. For instance, something like this:

my %one;
my %two;
my %three;

my @hashes = (\%one, \%two, \%three);

for my $hash (@hashes) {
  for my $key (keys %$hash) {
    # do something
  }
}

-- Mike

--
just,my${.02}