in reply to Common hash keys

What have you tried? Pseudocode would be ... 

for all keys in hash-1, where k-1 is current key
  for all keys in hash-2, where k-2 is current key
    put k-1 in store if k-1 = k-2
  end-for
end-for

#  "store" would have all the common keys in the end

[download]

Time passes. Oh yes, finding if any keys are present ... 

common set to false
for all keys in hash-1, where k-1 is current key
  for all keys in hash-2, where k-2 is current key
    if k-1 = k-2,
      common set to true
      break out of both loops
  end-for
end-for

# test common to check for commonality

[download]

Replies are listed 'Best First'.
Re^2: Common hash keys
by moritz (Cardinal) on Jun 07, 2008 at 07:56 UTC
    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 ;-)
[reply]

      (: Indeed! (But I did not write Perl, did I?)

[reply]
        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]

In Section Seekers of Perl Wisdom