一、条件判断
if(<expression>){
<statement_block_1>
}
elsif(<expression>){
<statement_block_2>
}
...
else{
<statement_block_3>
}
二、循环：
1、while循环
while(<expression>){
<statement_block>
}
2、until循环
until(<expression>){
<statement_block>
}
3、类C的for循环，如
for($count=1;$count<=5;$count++){
#statementsinsidetheloopgohere
}
下面是在for循环中使用逗号操作符的例子：
for($line=<STDIN>,$count=1;$count<=3;$line=<STDIN>,$count++){
print($line);
}
它等价于下列语句：
$line=<STDIN>;
$count=1;
while($count<=3){
print($line);
$line=<STDIN>;
$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、do循环
do{
statement_block
}while_or_until(condexpr);
do循环至少执行一次循环。
6、循环控制
退出循环为last，与C中的break作用相同；执行下一个循环为next，与C中的continue作用相同；PERL特有的一个命令是redo，其含义是重复此次循环，即循环变量不变，回到循环起始点，但要注意，redo命令在do循环中不起作用。
7、传统的gotolabel;语句。
三、单行条件
语法为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);
虽然条件判断写在后面，但却是先执行的。