曲径通幽论坛

标题: 条件修饰 [打印本页]

作者: beyes 时间: 2011-10-8 11:15
标题: 条件修饰
一般情况下，我们的判断通常是先写出 if ，然后在条件成立时执行语句。但在 Perl 里也对这一操作进行简化，它可以将 if 写在执行语句之后，比如：

[Perl] 纯文本查看 复制代码

#!/usr/bin/perl



$n = -3;



print "$n is a negaive number.\n" if $n < 0;

运行输出：

# ./con.pl
-3 is a negaive number.

实际上，不止 if ，其他的控制类修饰词也可以这么使用，比如 unless, until, while, foreach ：

[Perl] 纯文本查看 复制代码



#valid 子程序返回为假时执行 error 子程序

&error ("Invalid input") unless &valid($input);           



#在 $i 不大于 $j 时一直会执行 $i *= 2 语句

$i *= 2 until $i > $j;       



# $n 小于 10 时会一直执行前面语句

print “ ”， （$n + 2) while $n < 10;

在条件修饰词的左边可以存在多条语句，每条语句用分号隔开，但最后一条语句不能用分号，如：

print "$n is a negaive number.\n"; $n *= 2; print "$n\n"; print "hello world\n" if $n < 0;

但是如果是多条语句，那么还是建议使用传统的语句块的写法。

此外，foreach 不能自选控制变量，必须使用 $_ 。

欢迎光临曲径通幽论坛 (http://www.groad.net/bbs/)