perl 学习undef and defined

undef值：在给一个标量变量赋值之前就使用这个变量，也不会出现什么问题，因为Perl变量在第一次赋值之前有特别的undef值，作为数值，它和0类似，作为字符串，其类似于空串。但是undef既不是数字也不是字符串，它是一个完全独立的标量值。'W*WA\
aNNW0

`0T
^{k!s|0defined函数：要想知道一个值是undef还是非空字符串，可以使用defined函数，它对undef返回假，其他所有情况则返回真。例如：

&_6BZ9G$n]K:V0EDA中国门户网站.?!?'iwi

$madonna = <STDIN>;

)v1aY1CJ:]f0

0h
F
x]2}3P8La0if ( defined($madonna) ) {

e(uU�QC#~ `T3h9Mj0EDA中国门户网站]{3W1G;w5eJu

  print "The input was $madonna";

"?4g?H-O V tev\8aaj0

.eG
k Z1q0zAe'fE0} else {EDA中国门户网站.SM0a~�h? D"I

EDA中国门户网站7Q:J NCHn&v(Jb4q(z%l

  print "No input available!\n";EDA中国门户网站`kod H J9o|
Lm

EDA中国门户网站;Z,O7^`6\1da9n1a}