Re^2: Common hash keys

Your inner loop could be described as clubbing somebody to death with a loaded uzi. No need to iterate over the hash keys just to check if one is present. Looking up a key in a hash is the most basic operation a hash offers ;-)

Comment on Re^2: Common hash keys

Replies are listed 'Best First'.
Re^3: Common hash keys by parv (Parson) on Jun 07, 2008 at 08:34 UTC
`(:` Indeed! (But I did not write Perl, did I?)	[reply]
Re^4: Common hash keys by massa (Hermit) on Jun 07, 2008 at 13:34 UTC
Maybe `my @keys_in_commmon = grep $hashref1->{$_}, keys %$hashref2;` [download] would've sufficed?? If you just have to determine if they have keys in common, `if( grep $hashref1->{$_}, keys %$hashref2 ) { ... }` [download] would do the trick...	[reply] [d/l] [select]
Re^5: Common hash keys by Anonymous Monk on Jun 08, 2008 at 06:56 UTC
I would say `my @keys_in_commmon = grep``exists``($hashref1->{$_}), keys %$hashref2;` to avoid autovivification.	[reply] [d/l] [select]
Re^6: Common hash keys by parv (Parson) on Jun 08, 2008 at 08:29 UTC
Re^6: Common hash keys by throop (Chaplain) on Jun 08, 2008 at 13:31 UTC
Re^7: Common hash keys by Porculus (Hermit) on Jun 15, 2008 at 17:30 UTC