in reply to Comparing contents of 2 Hashes of Hashes
My first thought (untested, but should work) :
Thus spake the Master Programmer:
"When you have learned to snatch the error code from the trap frame, it will be time for you to leave."
-- The Tao of Programming
sub compare_hohs { my ($localhref,$remhref) = @_; foreach my $mach (keys %{ $localhref }) { foreach my $file (keys %{ $localhref->{$mach} }) { # have machine and file if ($localhref->{$mach}{$file} != $remhref->{$mach}{$file} +) { print "$mach:$file mismatched\n"; ## do something with mis matched ## trnasfer i presume } } } }
Thus spake the Master Programmer:
"When you have learned to snatch the error code from the trap frame, it will be time for you to leave."
-- The Tao of Programming
|
---|
In Section
Seekers of Perl Wisdom