Perl中的控制结构

　　perl里面有一个特别的控制语句叫做“elsif”的，注意，不是“elseif”,而是“elsif”，这个语句的作用同else if是一样的。使用可以看下面的例子。

　　　#!/usr/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $a;
　　　 for($a=0;$a<10;$a++)
　　　　　 {
　　　　　　 if($a>5) print "haha ";
　　　　　　 elsif($a>3) print "lala ";
　　　　　　 else print "gee! ";
　　　　　 }
　　　 }

　　
　　Unless是If的反义词，这个关键字的用法和if完全一样，但是相当于加上一个!(取非)，用一个例子来说：

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

　　和

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

　　是一样的。 我一直不太明白这个关键字有什么用。

　　Until是While的反义词，就是说不执行后面的语句一直到满足条件为止。如下面的例子

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