Re: Comparing two hashes

[dwm042]

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} );
    }
}

[ruzam]

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?

[dwm042]

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.

[ruzam]

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.