Re: Comparing two hashes

As other monks have pointed out, the question is a little vague. If what you're trying to do is compare elements in one hash with elements in another hash, and the key values do not matter, you could use code something like this:

#!/usr/bin/perl

use warnings;
use strict;

my %giant = (
    fee => 'fi',
    fo  => 'fum',
    I   => 'smell'
);

my %mouse = (
    eeeny => 'meeny',
    miny  => 'mo',
    nose  => 'smell'
);

my $out = "giant\{%s\} equals mouse\{%s\}\n";

for my $g ( sort keys %giant ) {
    for my $m ( sort keys %mouse ) {
        printf $out, $g, $m if ( $giant{$g} eq $mouse{$m} );
    }
}
[download]

Comment on Re: Comparing two hashes Download Code

Replies are listed 'Best First'.
Re^2: Comparing two hashes by ruzam (Curate) on Apr 02, 2010 at 02:06 UTC
Actually, this only tells you which 'values' exist in both hashes, not whether the key/value pairs are the same, let alone whether the two hashes are the same. How to check similarity of two hash tables How do I test the deep equality of two hash tables? How to test equality of hashes?	[reply]
Re^3: Comparing two hashes by dwm042 (Priest) on Apr 02, 2010 at 18:06 UTC
Actually, that's what I intended to do, ruzam. And that's what I said I was going to do. One example, of one possible interpretation of the OP's question, was all I wanted to provide.	[reply]
Re^4: Comparing two hashes by ruzam (Curate) on Apr 03, 2010 at 04:00 UTC
My bad, sorry. You're absolutely right and I should have read your response more carefully. I'm afraid I got caught up in the code example without paying attention to the lead in.	[reply]