Perl学习12之defined undef使用

"pythonic生物人"的第19篇分享。

---

摘要

perl中defined undef使用

目录

1、undef

2、defined()函数

正文开始啦

---

1、undef

指代完全未定义的， 是perl中变量未初始化时的默认值，这不等于字符串的空，不等于数值0，它是另一种类型；上下文需要数值的时候，undef为0；上下文需要字符串的时候，undef为空字符串。

2、defined()函数

可判断一个变量是否被赋值。

例如defined($a)，如果是$a没被赋值，即为undef，defined($a)函数返回false，否则返回true。

• 例1，undef3.pl

#！/usr/bin/perl
use strict;
use warnings;

my $word="";#被赋空值

if(defined($word)){#$word被赋空值，defined($word)返回1
        print "0\n$word";
}else{
        print "1\n$word";}

perl undef3.pl

0

• 2，undef2.pl

#!/usr/bin/perl
use strict;
use warnings;
my $word;#没有赋值

if(defined($word)){#$word没被赋值，defined($word)返回0
        print "0\n$word";
}else{
        print "1\n$word";}
        
 =pod;
 #!/usr/bin/perl
use strict;
use warnings;
my $word;#没有赋值

if(defined($word)){#$word没被赋值，defined($word)返回0
        print "0\n$word";
}else{
        print "1\n$word";}
 =cut;

perl undef2.pl

1

同系列文章

---

持续更新，欢迎您"关注"、"在看"、"分享"