Re: How best to compare hash values?


Perl: the Markov chain saw
	PerlMonks

Re: How best to compare hash values?

by choroba (Cardinal)

on May 05, 2010 at 21:31 UTC ( [id://838579]=note: print w/replies, xml )

Need Help??

in reply to How best to compare hash values?

Just go through all the keys in one hash and compare the values.

foreach my $key ( sort keys %hash1 ) {
  print $hash1{$key} - $hash2{$key}, "\n";
}
[download]

Problems may occur if a key is not present in both hashes, though.

Comment on Re: How best to compare hash values? Download Code

Replies are listed 'Best First'.

Re^2: How best to compare hash values?
by doug (Pilgrim) on May 06, 2010 at 13:27 UTC

I generally do it this way too, but I check all keys that are in both. Something like:

my %union = ( %hash1, %hash2 );
my @keys = sort keys %union;
undef %union;

foreach my $key ( @keys ) {
   if ( ! exists $hash1{$key} ) {
      print "key $key is not in hash 1\n";
   } elsif ( ! exists $hash2{$key} ) {
      print "key $key is not in hash 2\n";
   }
   ....
[download]

- doug

[reply]
[d/l]

In Section Seekers of Perl Wisdom