Perl的undef和defined()函数

undef表示的像是数据库中的null。它表示空,啥也没有,是完全未定义的。这不等于字符串的空,不等于数值0,它是另一种类型。

在某些时候,perl程序本该报错的时候(如使用未赋值的变量,参数越界,读取文件时到了文件结尾eof),perl实际上不会报错,而是返回undef。但如果开启了warnings功能,则这种类型的问题,某些情况下会给出warning信息,而不是返回undef。

一般情况下,将其当作空或0就好了,因为在需要数值的时候,undef代表的就是0,需要字符串的时候,undef就是空字符串。

所以,perl中的完全可以直接使用未定义的变量,因为未定义的变量起始就是undef。它可以被当作0,也可被当作空字符串。

例如,下面两个语句中,$sum和$str都是未定义的,初始时它们分别表示数值0和空字串’’。

1
2
$sum += $i;
$str .= "abc";

可以直接将undef关键字赋值给某个变量,表示这个变量是undef的,这可以取消一个变量的定义。相当于bash shell中的unset。

1
$line=undef;

如果想要判断这个undef确实是undef而不是字符串的空,可以使用defined()函数。如果是undef,则该函数返回false,否则返回true。

1
2
3
4
5
if(defined($ma)){
print "valid var\n";
}else{
print "invalid var\n"; # <--- 输出此行
}