perl 经典入门(2)

perl 经典入门(2)
2010年06月19日
　　[b]第十章 更多的控制结构[/b]
　　unless控制结构
　　if是表达式为真时执行，如果希望表达式为假时执行可用 unless（除非）。表示除非表达式
　　为真，否则运行这个代码。它就像一个具有相反条件的if语句，也可以理解成一个独立的
　　else子 句。
　　123
　　unless ($aa = ~/^[A-Z_]\w*$/i) {print "the value of \$aa doesn't look like a perl identifier name.\n";}
　　等同于
　　1234
　　if ($aa =~ /^[A-Z_]\w*$/i) {} else {print "the value of \$aa doesn't look like a perl identifier name.\n";}
　　等同于
　　123
　　if (!$aa =~ /^[A-Z_]\w*$/i) {print "the value of \$aa doesn't look like a perl identifier name.\n";}
　　以上语句都被编译成相同的内部字节码，但unless最自 然。
　　unless的else子句
　　12345
　　unless ($aa =~/^(bb)/) {print "this value like bb.\n";} else {print "do you see what's going on here?\n";}
　　等同于
　　12345
　　if ($aa =~/^(bb)/) {print "do you see what's going on here?\n";} else {print "this value like bb.\n";}
　　until控制结构
　　while的反置结构。
　　12
　　until ($a > $b) {$a *= 2;
　　这个循环一直执行，直到条件表达式返回真为止。
　　表达 式修饰符
　　print “$n is a negative number.\n” if $n $j;&greet($_) foreach @person;
　　裸块控制块
　　所谓的 “裸（naked）块”，指的是没有关键字或条件的块。如：
　　12345
　　while (condition) {body;body;body;}
　　现在把while关键字和条件去掉，就得到一个裸块。
　　12345
　　{body;body;body;}
　　它 只执行一次，然后就结束，
　　其中一个作用是提供一个临时词法变量的作用域。一条通用的原则，所有变量就应该在最小
　　的作用域中声明。 如果你需要一个只用在几行代码中的变量，那么你可以把这些行放在裸块
　　中，并在该块中声明这个变量。
　　elsif子句
　　如果你 需要检查一组条件，一个接一个，看看哪个条件为真，就可以用elsif子句（注意不
　　是elseif）。perl会逐个测试条件表达式，当一个条件 成功就执行相应的代码。但如果测试项
　　太多，就不要使用这种方式，应该用类“case or switch”的语句。
　　自递增和自递 减
　　++ $a++; $a值不变。
　　++$a; 把$a增1，存到$a里。