perl学习(8) 控制：unless,until,next,redo,last

Perl中实现了所有C 的操作符！

Perl力求代码最少！ 

1.1.unless

unless的含义是：除非条件为真，否则执行块中的代码，和if正好相反

unless($fred=~ /^[A-Z_]\w*$/i){

       print “The value of \$fred doesn’t looklike a Perl identifier name.\n”;

}

else

{

       print “match success\n”;

}

#大写字母或者下划线开头的字符串

 

1.2.until

将while 循环的条件部分取反

until($j> $i){

       $j *=2;

} 

1.3.表达式修饰符