条件修饰

beyes

一般情况下，我们的判断通常是先写出 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 不能自选控制变量，必须使用 $_ 。