Perl_控制结构(2)

for：for(初始化；循环条件；操作1){操作2；}

当不满足循环条件时，退出循环，例如：

for($i=0;$i<4;$i++){print “$i “;}

# 输出：0 1 2 3

foreach：历遍数组，例如：

foreach $i(0..3){print “$i “;}

# 输出：0 1 2 3

for也有同样的功能：

for $i(0..3){print “$i “;}

# 输出：0 1 2 3

while：while(条件){操作；}

#直到条件不成立才退出循环

until：until(条件){操作；}

#直到条件成立才退出循环

my $i = 4;

while($i){print “$i “;$i--;};         #输出：4 3 2 1

print “\$i = $i\n”;               #输出：$i = 0

until($i>4){print “$i “;$i++;}     #输出：0 1 2 3 4

print “\$i = $i\n”;              #输出：$i = 5

while常用于历遍文件输入的内容：

open IN,”inflie” or die$!;

while(my $line=<IN>){

        print$line;

}

close IN;

next：进入下一轮循环

for $i(1..4){

        if($i% 2){next;}

        print“$i “;

}                                    #输出：2 4

last：退出循环

for $i(1..4){

        if($i>2){last;}

        print“$i “;

}                                    #输出：1 2