Beefy Boxes and Bandwidth Generously Provided by pair Networks
The stupid question is the question not asked
 
PerlMonks  

Re: Need a test for deep equality

by ides (Deacon)
on Apr 21, 2002 at 22:26 UTC ( #160944=note: print w/replies, xml ) Need Help??


in reply to Need a test for deep equality

Maybe I am missing something here but is there a reason you just don't compare the hashes by hand? Using recursion if they are hashes of hashes,etc? Something along these lines?
my %hash1 = { 'foo' => 1, 'bar' => 1 }; my %hash2 = { 'foo' => 1, 'bar' => 1 }; foreach my $key ( keys(%hash1) ) { die "Not equal" if $hash1{$key} != $hash2{$key}; }
I think you may be making this harder than it needs to be, either that or I'm not understanding your problem fully.

-----------------------------------
Frank Wiles <frank@wiles.org>
http://frank.wiles.org

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://160944]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others exploiting the Monastery: (3)
As of 2022-01-29 13:12 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    In 2022, my preferred method to securely store passwords is:












    Results (74 votes). Check out past polls.

    Notices?