Perl Tips

最近はまったこと。

my %hash;

if (defined $hash{"hello"}) { # ここではもちろん not defined!
    print "defined!\n";
} else {
    print "not defined!\n";
}

if (defined $hash{"hello"}{"world"}) {
    print "ありえねー!\n";
}

if (defined $hash{"hello"}) { # ここでは defined! になる
    print "defined!\n";
} else {
    print "not defined!\n";
}

つまり、defined $hash{"hello"}{"world"} とチェックするだけでも、ハッ
シュの状態が変わってしまうということ。でも、なんかデジャブな感じも
しないではない。