本文共 2052 字,大约阅读时间需要 6 分钟。
-- Start
和其他语言一样,Perl 也有 if 语句,不同的是 Perl 没有布尔类型,任何值都可以用于条件判断,数字 0,字符串 '' 和 '0',空列表,undef 等为假,其他为真。下面是一个简单的例子。
#!/usr/bin/perl$a = "a";$b = "b";# 注意此处是比较字符串,所以应该使用字符串比较操作符if($a gt $b) { print "$a > $b";}elsif($a lt $b) { # 注意 elsif 的写法 print "$a < $b";}else { print "$a = $b";}
unless 语句和 if 正好相反,条件为假时执行。
#!/usr/bin/perl$a = "a";$b = "b";unless($a gt $b) { print "$a < $b";} else { print "$a >= $b";}
#!/usr/bin/perl$n = 1;$sum = 0;while($n <= 100) { $sum += $n; $n++;}print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl$n = 1;$sum = 0;do { $sum += $n; $n++;} while($n <= 100);print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl$n = 1;$sum = 0;until($n > 100) { # 条件为真时退出循环 $sum += $n; $n++;}print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl$n = 1;$sum = 0;do { $sum += $n; $n++;} until($n > 100); # 条件为真时退出循环print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl$sum = 0;for($n = 1; $n <= 100; $n++) { $sum += $n;}print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl# 定义数组@array = (1,2...100);$sum = 0;foreach $a(@array) { # foreach 语句用来迭代数组 $sum += $a; $a = 0; # 改变变量$a的值,数组中的值也相应的改变了}print "1+2+3+...+99+100 = $sum\n";
#!/usr/bin/perl# last:退出循环# next:执行下一循环# redo:重新执行本次循环# goto:跳转
#!/usr/bin/perl# 可以在循环语句前定义一个标记OUT:for($i=1;$i<5;$i++){ for($j=1;$j<5;$j++){ print "$j "; last OUT if $i==3; # 退出到标记处 }}print "\$i=$i";
如果条件和循环只有一条语句,我们还可以将条件或循环后置。
#!/usr/bin/perl$a = 100;print $a if($a > 0);print $a unless($a <= 0);print $a while($a-- > 0);print $a until($a-- <= 0);
我们还可以利用逻辑操作符的短路特性来执行条件语句。
#!/usr/bin/perl# 对于逻辑与来说,如果第一表达式为假,整个表达式为假,# 因此我们不需要判断第二个表达式,所以 warn 函数不会执行# warn 函数用来向控制台输出警告信息$a = 0;$a == 0 && warn("请注意,变量 $a 等于 0。");$a == 0 and warn("请注意,变量 $a 等于 0。");# 对于逻辑或来说,如果第一表达式为真,整个表达式为真,# 因此我们不需要判断第二个表达式,所以 die 函数不会执行# die 函数用来向控制台输出错误信息并退出程序$a = -1;$a >= 0 || die("发现错误,变量 $a 不能小于 0。");$a >= 0 || die("发现错误,变量 $a 不能小于 0。");
-- 更多参见:
-- 声 明:转载请注明出处
-- Last Updated on 2012-06-30 -- Written by ShangBo on 2012-06-17 -- End