perlのdefined

defined関数：定義されていれば、1。定義されていなければ、0を復帰。

#nullチェック
#未定義チェック

@ary = ("a","","c");
$cnt = 1;
$num = @ary;
#foreach $v (@ary) {
for($i;$i<$num;$i++){
    #print "$ary[$i]--";
    printf ("%02d：",$i);
    if (defined(@ary[$i])) {
        print "定義\n";
    } else {
        print "未定義\n";
    }
}

if(defined(@ary)){
    print "定義\n";
}
if(defined(@arydd)){
    print "定義dd\n";
}else{
    print "未定義\n";
}