其他
Perl学习12之defined undef使用
"pythonic生物人"的第19篇分享
摘要
perl中defined undef使用目录
1、undef
2、defined()函数
正文开始啦
1、undef
2、defined()函数
可判断一个变量是否被赋值。
例如defined($a)，如果是$a没被赋值，即为undef，defined($a)函数返回false，否则返回true。
例1，undef3.pl
#！/usr/bin/perluse 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/perluse strict;use warnings;my $word;#没有赋值
if(defined($word)){#$word没被赋值，defined($word)返回0 print "0\n$word";}else{ print "1\n$word";} =pod; #!/usr/bin/perluse 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