http://www.perlmonks.org?node_id=1058048


in reply to Compare two hash values for a match

Difficult to say because I can't test your program (not having the DB), but probably $name is not defined when you dump $lookup{$name}{"sysoid"}, you should test it before dumping it. Similarly, these tests:

if($current{$key}{"nodesysoid"} eq "" || $lookup{$name}{"sysoid"} eq " +"){ if($current{$key}{"nodesysoid"} eq ""){ # ...

should probably be protected against non existing and/or undefined values (unless you can be sure that this is never going to happen).