本文和大家重点讨论一下Perl控制结构的用法，主要包括条件判断，循环和单行条件等内容，相信通过本文的学习你对Perl控制结构的用法有深刻的认识。
Perl控制结构
一、Perl控制结构之条件判断
if(){
}
elsif(){
}
...
else{
}
二、Perl控制结构之循环：
1、while循环
while(){
}
2、until循环
until(){
}
3、类C的for循环，如
for($count=1;$count<=5;$count++){
#statementsinsidetheloopgohere
}
下面是在for循环中使用逗号操作符的例子：
for($line=,$count=1;$count<=3;$line=,$count++){
print($line);
}
它等价于下列语句：
$line=; $count=1; while($count<=3){ print($line); $line=; $count++; }
4、针对列表(数组)每个元素的循环：foreach，语法为：
foreachlocalvar(listexpr){
statement_block;
}
例：
foreach$word(@words){ if($wordeq"the"){ print("foundtheword'the'\n"); } }
注：
(1)此处的循环变量localvar是个局部变量，如果在此之前它已有值，则循环后仍恢复该值。
(2)在循环中改变局部变量，相应的数组变量也会改变，如：
@list=(1,2,3,4,5); foreach$temp(@list){ if($temp==2){ $temp=20; } }
此时@list已变成了(1,20,3,4,5)。
5、Perl控制结构之do循环
do{
statement_block
}while_or_until(condexpr);
do循环至少执行一次循环。
6、循环控制
退出循环为last，与C中的break作用相同；执行下一个循环为next，与C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。
7、传统的gotolabel;语句。
三、Perl控制结构之单行条件
语法为statementkeywordcondexpr。其中keyword可为if、unless、while或until，如：
print("Thisiszero.\n")if($var==0); print("Thisiszero.\n")unless($var!=0); print("Notzeroyet.\n")while($var-->0); print("Notzeroyet.\n")until($var--==0);
虽然条件判断写在后面，但却是先执行的。
【编辑推荐】
