キーが存在するがその値が未定義、という場合があるので等価ではない。 --------------------------------------------- my %a = ("x"=>undef); if ( defined($a{"x"}) ) { print qq(\$a{"x"} is defined\n); } else{ print qq(\$a{"x"} is not defined\n); } if ( exists($a{"x"}) ) { print qq(\$a{"x"} exists\n); } else{ print qq(\$a{"x"} does not exists\n); }