perl之更多的控制结构

1.unless/if结构

unless 条件为假的时候 才执行语句块。

eg:

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

print "The value of \$fred doesn't look like a Perl indentifier name.\n";

}

想让于：

if(! ($fred =~ /^[A-Z-]\w*$/i)){

print "The value of \$fred doesn't look like a perl indentifier name.\n";

}

2.unless 's else statements

unless(condition)

{

statements;##run when condition false

}

else

{

statements;##run when condition true

}

3.until / while 控制结构  <===反置关系

until(condtion)

{

body; ###run when condition false

}

4.表达式修饰符用 if/unless  while/until

statements if/unless/while/until

eg:

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

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

$i*2 until $i > $j;

print "",($n+=2) while $n < 10;

&greet($_) foreach @person;

print "fred is '$fred' , barney is '$barney'\n "  if $I_am_curious;

5.裸块（naked）控制结构

所谓裸块（naked）就是指没有关键字或条件的快。

eg:

while(condition){

body;

body;

body;

}

去掉关键字和条件表达式：

{

body;

body;

body;

}

naked block 可以提供一个临时词法变量的作用域。

6.自递增与自递减

7.for 控制结构

for、 foreach 在perl中完全等价。

8.循环控制

1.last   相当于break

2.next  相当于continuous

3.redo  表示回到当前循环块的开头，但不测试任何条件表达式或进入下一个迭代。

last/next/redo都是对最内层循环块。

9.逻辑操作符（&& ||）

逻辑操作符有短路问题。但perl的逻辑操作符short-circuit逻辑操作符的值是最后被计算的部分，而不是一个布尔值。

10.三元操作符（?:）

11.使用部分计算操作符的控制结构

特点：对于&& 、|| 、？：有个共同属性即依赖于左侧值的真假，他们可能计算或不计算一个表达式。

eg:

($a > 10) || print "why is it not greater?\n";