Re^2: Compare hash with arrays and print

my %rhash = reverse %hash; my %fh; foreach my $num (keys %rhash)
[download]

Since you only need the unique keys from %hash you only really need an array:

my @keys = keys %{{ reverse %hash }};
my %fh;
foreach my $num ( @keys )
[download]

Comment on Re^2: Compare hash with arrays and print Select or Download Code

Replies are listed 'Best First'.
Re^3: Compare hash with arrays and print by Marshall (Canon) on Jul 12, 2010 at 23:47 UTC
Correct. The code is basically equivalent. We both reverse the hash and then find the keys of that reversed hash. Making a named array @keys is actually an extra step. I suppose if we wanted to, the whole right hand side of the "my @keys" line could go into the foreach() statement but, that could be obtuse. I was trying to show the workings of the reverse in the most straightforward way possible (simple syntax). I updated post to show the Op how to easily use Dumper to print the reversed hash, which is little more obvious how to do when it has an assigned name (rhash).	[reply]

Replies are listed 'Best First'.

Re^3: Compare hash with arrays and print
by Marshall (Canon) on Jul 12, 2010 at 23:47 UTC

I was trying to show the workings of the reverse in the most straightforward way possible (simple syntax). I updated post to show the Op how to easily use Dumper to print the reversed hash, which is little more obvious how to do when it has an assigned name (rhash).

[reply]