http://qs321.pair.com?node_id=240119


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

In Section Seekers of Perl Wisdom