Perl中的控制结构

　　先来看看Perl中的循环结构吧。

　　1：while结构

　　while结构在perl中有三种形式。 第一种形式是这样的：

　　　#!/user/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $a=0;
　　　 while(3>$a)
　　　　　 {
　　　　　　 print $a++;
　　　　　　 print " ";
　　　　　 }
　　　 }

　　第二种是定语后置式。呵呵，英文好的觉得很正常了。

　　　#!/user/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $a=0;
　　　 print $a++." " while(3>$a);
　　　 }

　　第三种是这个样子的，很古怪，真的很古怪。这种用法就是加上一个continue：

　　　#!/user/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $a=0;
　　　 while(3>$a)
　　　　　 {
　　　　　　 print "$a ";
　　　　　 }
　　　 continue
　　　　　 {
　　　　　　 if($a++>1) print "hello ";
　　　　　 }
　　　 }

　　这种结构会在每个while运行了一圈之后运行一遍continue的部分，然后继续进行while循环。

　　2：for结构

　　for结构是各种语言中都有的。perl中的for结构和c语言中的非常相近。下面是一个例子。

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