in reply to How do I make all the keys in %a with common keys in %b equal to %b's values?

my @common = grep exists $a{$_}, keys %b;
@a{@common} = @b{@common};

[download]
  • Comment on Re: How do I make all the keys in %a with common keys in %b equal to %b's values?
  • Download Code

In Section Seekers of Perl Wisdom