Re: comparing keys and values in different hashes


Perl-Sensitive Sunglasses
	PerlMonks

Re: comparing keys and values in different hashes

by Russ (Deacon)

on Mar 03, 2003 at 18:46 UTC ( [id://240119]=note: print w/replies, xml )

Need Help??

in reply to comparing keys and values in different hashes

This post may be interesting to you, in comparing two hashes.

Synopsis:

my %Diffs = ((map(($_ => [$R{$_}, undef]),  grep {not exists $S{$_}} k
+eys %R)),
             (map(($_ => [undef,  $S{$_}]), grep {not exists $R{$_}} k
+eys %S)),
             (map(($_ => [$R{$_}, $S{$_}]), grep {exists $S{$_} and $R
+{$_} ne $S{$_}}  keys %R)));
[download]

Russ