$s_test = "abc"; print "undef前 : $s_test\n"; undef($s_test); print "undef後 : $s_test\n"; if (! defined($s_test)) { print "未定義\n"; }