perl中单行条件 unless until if while的用法

unless
在if 控制结构中，只有条件为真时，才执行块中的代码。如果你想在条件为假时执行，可以使用unless：除非条件为真，否则执行块中的代码
unless($fred =~ /^[A-Z_]w*$/i){
print “The value of $fred doesn’t look like a Perl identifier name.n”;
}

unless 和else 语句一起使用
unless 中也可以有else 语句。虽然语法上支持，但可能引起混淆：
unless ($mon =~ /^Feb/){
print “This month has at least thirty days.n”;
}else{
print “Do you see what’s going on here?n”;
}

until 控制结构
有时，希望将while 循环的条件部分取反。此时，可以使用until：
until($j > $i){
$j *=2;
}

表达式修饰符
为了得到更紧凑的形式，表达式后可以紧接控制修饰语。如，if 修饰语可以像if 块那样使用：
print “$n is a negative number.n”if $n<0;
还有一些其它的修饰语：
&error(“Invalid input”) unless &valid($input);
$i *= 2 unitl $i > $j;
print “”,($n += 2) while $n <10;
&greet($_) foreach @person;

last 操作
last 会立刻结束循环。（这同C 语言或其它语言中的“break”语句类似）。它从循环块中“紧急退出”。当执行到last，循环即结束，如下例：
#输出所有出现fred 的行，直到遇见_ _END_ _标记
while(<STDIN>){
if(/_ _ END_ _/){
#这个标记之后不会有其它输入了
last;
}elsif(/fred/){
print;
}
}
##last 跳转到这里##

Perl 的5 种循环体分别是for,foreach,while,until，以及“裸”块◆。花括号括起来的if 块，子程序◆不算。在上面的例子中，last 对整个循环块其作用。

next 操作
有时还不希望结束循环，但本次循环已经结束。这种情况下，next 是非常适用的。它跳到当前循环块的最后面（块内）next 之后，又会进入下一轮循环（这和C 或者类似语言的“continue”相似，但不一样）：