Re^3: how to use the values of the first hash to be the keys for the second hash

You can use each to iterate over the hash:

#!/usr/bin/perl
use warnings;
use strict;

my %hash1 = (key1 => [qw(val1 val2)],
             key2 => ['val3'],
             );
my %hash2 = (val1 => [qw(val5 val6 val7)],
             val2 => [qw(val8 val9)],
             val3 => ['val3'],
            );
my %result = (map { $_ => [ map @{ $hash2{$_} } ,
                                @{ $hash1{$_} }
                          ]
                  } keys %hash1);

while (my ($k, $v) = each %result) {
    print $k, " @$v\n";
}
[download]

لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ

Comment on Re^3: how to use the values of the first hash to be the keys for the second hash Download Code

Replies are listed 'Best First'.
Re^4: how to use the values of the first hash to be the keys for the second hash by lrl1997 (Novice) on Sep 07, 2012 at 19:16 UTC
This is so great. But the values in my hash1 are not arrays, they are strings with each key for hash2 separated by comma ",". How should I turn the strings in to array so that I could adapt to the code? Thanks again, great help!	[reply]
Re^5: how to use the values of the first hash to be the keys for the second hash by choroba (Cardinal) on Sep 07, 2012 at 23:21 UTC
Ah, ok, that was originally not clear from the question. You can use split to get the list from the string: `#!/usr/bin/perl use warnings; use strict; my %hash1 = (key1 => 'val1,val2', key2 => 'val3', ); my %hash2 = (val1 => 'val5,val6,val7', val2 => 'val8,val9', val3 => 'val3', ); my %result = map { $_ => join ',', map split(/,/, $hash2{$_}), split /,/, $hash1{$_} } keys %hash1; while (my ($k, $v) = each %result) { print "$k: $v\n"; }` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]