Perl教学第七篇控制结构-Perl-idc中文资讯站-客观公证的IDC产业权威媒体,关注域名、虚拟主机、服务器、网络、开源技术资讯，整合运营商资源，客观评价各地机房带宽线路质量、IDC企业名录等信息

Perl教学第七篇控制结构

来源：linux宝库作者：linux宝库发布时间:2007-09-30 00:00:00

　　一、条件判断

　　if ( ) {

　　}

　　elsif ( ) {

　　}

　　...

　　else{

　　}

　　二、循环：

　　1、while循环

　　while ( ) {

　　}

　　2、until循环

　　until ( ) {

　　}

　　3、类C的for循环，如

　　for ($count=1; $count <= 5; $count++) {

　　# statements inside the loop go here

　　}

　　下面是在for循环中使用逗号操作符的例子：

　　for ($line = , $count = 1; $count <= 3; $line = , $count++) {

　　print ($line);

　　}

　　他等价于下列语句：

　　$line = ;

　　$count = 1;

　　while ($count <= 3) {

　　print ($line);

　　$line = ;

　　$count++;

　　}

　　4、针对列表(数组)每个元素的循环：foreach，语法为：

　　foreach localvar (listexpr) {

　　statement_block;

　　}

　　例：

　　foreach $word (@words) {

　　if ($word eq "the") {

　　print ("found the word ’the’＼n");

　　}

　　}

　　注：

　　(1)此处的循环变量localvar是个局部变量，假如在此之前他已有值，则循环后仍恢复该值。

　　(2)在循环中改变局部变量，相应的数组变量也会改变，如：

　　@list = (1, 2, 3, 4, 5);

　　foreach $temp (@list) {

　　if ($temp == 2) {

　　$temp = 20;

　　}

　　}

　　此时@list已变成了(1, 20, 3, 4, 5)。

　　5、do循环

　　do {

　　statement_block

　　} while_or_until (condexpr);

　　do循环至少执行一次循环。

　　6、循环控制

　　退出循环为last，和C中的break作用相同；执行下一个循环为next，和C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。

　　7、传统的goto label;语句。

　　三、单行条件

　　语法为statement keyword condexpr。其中keyword可为if、unless、while或until，如：

　　print ("This is zero.＼n") if ($var == 0);

　　print ("This is zero.＼n") unless ($var != 0);

　　print ("Not zero yet.＼n") while ($var-- > 0);

　　print ("Not zero yet.＼n") until ($var-- == 0);

　　虽然条件判断写在后面，但却是先执行的。

喜欢本文，那就收藏到：