Perl中的控制结构

　　　#!/user/bin/perl -w
　　　 use strict;
　　　 {
　　　 my %a=(hello,"你好",great,"太棒了");
　　　 my $thiskey;
　　　 foreach $thiskey (keys %a)
　　　　　 {
　　　　　　 print "$thiskey=>$a($thiskey) ";
　　　　　 }
　　　 }

　　将可以把hash中所有的key和value打印出来。呵呵，很好玩吧？

　　一种编程语言中的控制结构是控制程序流程走向的语句和语法，今天先来学学最基本的三个控制If、Unless、Until，呵呵，其实跟其他编程语言中的对应语句的用法没有大的区别，我们就通过几个例子来看一看吧。

　　if是各种语言中都有的结构，但是perl的if似乎有点……那个，可称之为“定语后置”。 具体来说就是这个样子的

　　　#!/usr/bin/perl -w
　　　 use strict;
　　　 {
　　　 my $a=3;
　　　 print "thank god!" if($a==3);
　　　 }

　　当然这是一个很无聊的程序了，但给大家演示了perl中定语是如何后置的。其他地方if的用法同其他语言就没什么区别了。又例如下面的例子

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

　　有了if就一定会有else，else也没有什么特别的。用法如下：

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