本文和大家重点讨论一下Perl控制结构的用法，主要包括条件判断，循环和单行条件三大部分内容，相信通过本文的学习你对Perl控制结构的用法一定会有深刻的认识。
Perl控制结构学习笔记
一.条件判断
if(<expression>)
{
<statement_block_1>
}
elsif(<expression>)
{
<statement_block_2>
}
...
else
{
<statement_block_3>
}
二.Perl控制结构之循环
1.while循环
while(<expression>)
{
<statement_block>
}
2.until循环
until(<expression>)
{
<statement_block>
}
3.类C的for循环
for($count=1;$count<=5;$count++)
{
#statementsinsidetheloopgohere
}
4.针对列表(数组)每个元素的foreach循环
foreachlocalvar(listexpr)
{
statement_block;
}
例:
foreach$word(@words)
{
if($wordeq"the")
{
print("foundtheword'the'\n");
}
}
注:
(1)此处的循环变量localvar是个局部变量,如果在此之前它已有值,则循环后仍恢复该值.
(2)在循环中改变局部变量,相应的数组变量也会改变.
5.do循环
do
{
statement_block
}while_or_until(condexpr);
do循环至少执行一次循环.
6.循环控制
退出循环为last,与C中的break作用相同;
执行下一个循环为next,与C中的continue作用相同;
Perl特有的一个命令是redo,其含义是重复此次循环,即循环变量不变,回到循环起始点.但要注意,redo命令在do循环中不起作用.
三.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);
虽然条件判断写在后面，但却是先执行的。本文来自:(www.91linux.com)详细出处参考：http://www.91linux.com/html/article/program/Perl/20090601/17033_2.html
【编辑推荐】
