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

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

[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