Perl 循环控制

1.while循环

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

 

 

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

 

 

2.until 循环 

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

 

 

 

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

 

 

 

3.for循环结构

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

 

 

4. foreach结构

#!/usr/bin/perl -w
use 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 -w
use strict;

#last
my $a=0;
for($a=0;$a<10;$a++)
{
    last if($a == 5);
    print "$a ";
}
print "\n";

 

#!/usr/bin/perl -w
use strict;

#next

my $a=0;
for($a=0;$a<10;$a++)
{
    next if($a == 5);
    print "$a ";
}
print "\n";

 

 

#!/usr/bin/perl -w
use strict;

#redo
my $a=0;
for($a=0;$a<10;$a++)
{
    print "$a ";
    #redo if($a == 8);
}

 

来源：chinaunix.net