回帖：先来看看Perl中的循环结构吧。
　　1：while结构
　　while结构在perl中有三种形式。 第一种形式是这样的：
　　　#!/user/bin/perl -w
　　　use strict;
　　　{
　　　my $a=0;
　　　while(3>$a)
　　　　　{
　　　　　　print $a++;
　　　　　　print "\n";
　　　　　}
　　　}
　　第二种是定语后置式。呵呵，英文好的觉得很正常了。
　　　#!/user/bin/perl -w
　　　use strict;
　　　{
　　　my $a=0;
　　　print