perl转载undef简介 defined函数简介

FXMAR

　　（一）undef简介  
变量在第一次赋值前有一个特殊值undef，按照Perl来说就是： “这里什么也没有，请继续” 。如果这里的“什么也没有”是一些“数字” ，则表现为 0。如果是“字符串” ，则表现为空串。但undef 既非数字也非字符串，它是另一种标量类型。
由于undef 在需要数字的地方可以自动转化为 0，因此可以如下的写代码：
#!/usr/bin/perl
while($n<10){
$sum+=$n;
$n+=2;
}
print "The total was $sum.\n";
Output:  The total was 20.
上述代码在$sum未初始化(undef)时也能正确执行。第一次执行时，循环体中第一行$n值为1，因此将1 加给$sum。而$sum就像已经有值0，因为$sum值为 undef。现在其值 1。之后，由于其已被初始化，其过程同普通的类似。
同样的，针对字符串的情形：$string.= “ moretext\n”;
如果$string为 undef；则是空串后接“ moretext \n” 。反之，则是其值后接 “ moretext\n” 。
Perl程序员在使用新变量时，经常不初始化，从而将变量作为0 或者空串使用。许多操作当参数不恰当时返回undef。如果没做特殊处理，通常会得到0 或者空串。实践中，这几乎不会有什么问题。实际上，许多程序员利用这种性质。但应当知道如果警告是打开的，那Perl 在你不恰当的使用未定义值时会提醒你。例如，将一个undef 的变量赋给另一个变量不会有什么问题，但如果print某个未定义的值则将引起警告。
（二）defined函数简介
能返回 undef 的操作之一是行输入操作，<STDIN>。通常，它会返回文本中的一行。但如果没有更多的输入，如到了文件的结尾，则返回undef。要分辨其是undef 还是空串，可以使用 defined函数，它将在为undef 时返回false，其余返回true。事实上，从键盘输入，不会有 “ end-of-file” ，但其可重定向到文件中再输入。或者用户可能输入某些键，而系统将其作为end-of-file看待。
比如：
#!/usr/bin/perl
$madonna=<STDIN>;
if(defined($madonna)){
print "The input was $madonna";
}else{
print "No input available!\n";
}
如果想声明自己的undef 值，可以使用undef：$madonna=undef;  同$madonna 从未被初始化一样。