Perl学习记录(二) -- 逻辑控制

一、if语句。个人感觉相当类似于java的判断，直接贴上代码，共自己以后参考。

#!/usr/bin/perl

$abc = "dajuezhao";

if ($abc eq "dajuezhao"){

        print "yes";

}else{
        print "no";
 }

print "/n";

做了个if的判断，如果变量abc等于dajuezhao，那么，控制台输出yes，否则输出no。运行结果如图：

2、关于布尔值。在perl中没有boolean数据类型。但是有以下原则：

如果是数字，0表示false，其他都是true。

如果是字符串，空字符串（''）表示false，其他都是true。但是需要说明，'0'这个字符串等同于数字0，所以'0'是唯一被当成false的非空字符串。

如果既不是数字也不是字符串，那么先转换成数字或字符串再进行判断。undef类型是都是false(undef作为数字默认是0，作为字符串默认是空)。

同java一样，取boolean值的反值采用 ! 号。

3、while循环。见代码：

#!/usr/bin/perl

$count = 0;

while($count < 10){

 print $count;

 $count++;

}

print "/n";

输出结果见图：

4、defined。用于判断某个字符串是undef而不是空字符串。例如：

#!/usr/bin/perl
$bcd = undef;
if(defined($bcd)){
print "yes" . $bcd
}else{
print "no";
}

可以看到，控制台输出结果为“no”。因为变量等于undef则返回false。

5、OK，今天就到这里。每天看的不多，但愿每天都能看一些。还是那句老话，初学perl，写的不对欢迎朋友们指出：dajuezhao@gmail.com