Perlで2階層目のハッシュを参照するときは注意が必要 - 超自己満足プログラミング

use strict; use warnings; my (%hash, $msg); $msg = (exists $hash{key}) ? "exist" : "not exist"; print "$msg\n"; # not exist # 1階層目を参照 my $tmp = $hash{key}; $msg = (exists $hash{key}) ? "exist" : "not exist"; print "$msg\n"; # not exist # 2階層目を参照 $tmp = $hash{key}{sub_key}; $msg = (exists $hash{key}) ? "exist" : "not exist"; print "$msg\n"; # exist warningすら出ません。 当然ですけど、existsではなくて、definedでも同じです。 $

[shag]

see http://blog.livedoor.jp/dankogai/archives/50929096.html