Perl 循环统制

Perl 循环控制

1.while循环

#!/usr/bin/perl -wuse strict;my $a=0;while($a++ < 10){    print "$a ";}

?

?

#!/usr/bin/perl -wuse strict;my $a=0;print "$a " while($a++ < 10);

?

?

2.until 循环?

#!/usr/bin/perl -wuse strict;my $a=0;until($a++ > 10){    print "$a ";}

?

?

?

#!/usr/bin/perl -wuse strict;my $a=0;print "$a " until($a++ > 10);

?

?

?

3.for循环结构

#!/usr/bin/perl -wuse strict;my $a=0;for($a=0;$a<10;$a++){    print "$a ";}

?

?

4. foreach结构

#!/usr/bin/perl -wuse strict;my @array=(0..10);my $a=0;foreach $a (@array){    print "$a ";}

?

?

5 do循环

do需要和while或者until配合使用,比如

do{    #balabala}while();

?

或者是

do{    #balabala}until();

?

do结构中的语句一定会先执行一遍,然后才会判断条件

?

?

6. last,next,redo

这三种结构是用来打断循环结构的正常运行的,前两种就和c语言中的break,continue一样,后一种是perl特有的

?

#!/usr/bin/perl -wuse strict;#lastmy $a=0;for($a=0;$a<10;$a++){    last if($a == 5);    print "$a ";}print "\n";

?

#!/usr/bin/perl -wuse strict;#nextmy $a=0;for($a=0;$a<10;$a++){    next if($a == 5);    print "$a ";}print "\n";

?

?

#!/usr/bin/perl -wuse strict;#redomy $a=0;for($a=0;$a<10;$a++){    print "$a ";    #redo if($a == 8);}

?

来源：chinaunix.net