?? perl7.htm
字號(hào):
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>perl教程之 控制結(jié)構(gòu)</title>
<LINK rel="stylesheet" href="article.css" type="text/css">
</head>
<body>
<br>
<p align="center">第七章 控制結(jié)構(gòu)</p>
<p align="center"><a target="_blank" href="http://flamephoenix.126.com">by flamephoenix</a></p>
<a href="#一、條件判斷"> 一、條件判斷</a><br>
<a href="#二、循環(huán)："> 二、循環(huán)：</a><br>
<a href="#1、while循環(huán)">1、while循環(huán)</a> <br>
<a href="#2、until循環(huán)">2、until循環(huán)</a> <br>
<a href="#3、類C的for循環(huán)">3、for循環(huán)</a> <br>
<a href="#4、針對(duì)列表(數(shù)組)每個(gè)元素的循環(huán)">4、針對(duì)列表(數(shù)組)每個(gè)元素的foreach循環(huán)</a><br>
<a href="#5、do循環(huán)"> 5、do循環(huán)</a><br>
<a href="#6、循環(huán)控制">6、循環(huán)控制</a> <br>
<a href="#7、傳統(tǒng)的goto label;語(yǔ)句。">7、傳統(tǒng)的goto語(yǔ)句</a><br>
<a href="#三、單行條件"> 三、單行條件</a><br>
<br><br>
<a name="一、條件判斷"> 一、條件判斷</a>
<br>
if ( <expression>) {<br>
<statement_block_1><br>
}<br>
elsif (
<expression> ) {<br>
<statement_block_2><br>
}<br>
...<br>
else{<br>
<statement_block_3><br>
}<br>
<a name="二、循環(huán)："> 二、循環(huán)：</a>
<br>
<a name="1、while循環(huán)"> 1、while循環(huán)</a>
<br>
while (
<expression> ) {<br>
<statement_block><br>
}<br>
<a name="2、until循環(huán)"> 2、until循環(huán)</a>
<br>
until (
<expression> ) {<br>
<statement_block><br>
}<br>
<a name="3、類C的for循環(huán)"> 3、類C的for循環(huán)</a>
，如<br>
for ($count=1; $count
<= 5; $count++) {<br>
# statements
inside the loop go here<br>
}<br>
下面是在for循環(huán)中使用逗號(hào)操作符的例子：<br>
for ($line =
<STDIN>, $count = 1; $count <= 3;
$line = <STDIN>, $count++) {<br>
print
($line);<br>
}<br>
它等價(jià)于下列語(yǔ)句：<br>
$line = <STDIN>;<br>
$count = 1;<br>
while ($count <= 3) {
<br>
print
($line);<br>
$line =
<STDIN>;<br>
$count++;<br>
}<br>
<a name="4、針對(duì)列表(數(shù)組)每個(gè)元素的循環(huán)">
4、針對(duì)列表(數(shù)組)每個(gè)元素的循環(huán)：foreach，
語(yǔ)法為：</a><br>
foreach localvar
(listexpr) {<br>
statement_block;<br>
}<br>
例：<br>
foreach $word (@words) {<br>
if ($word eq
"the") {<br>
print
("found the word 'the'\n"); <br>
}<br>
}<br>
注：<br>
(1)此處的循環(huán)變量localvar是個(gè)局部變量，如果在此之前它已有值，則循環(huán)后仍恢復(fù)該值。<br>
(2)在循環(huán)中改變局部變量，相應(yīng)的數(shù)組變量也會(huì)改變，如：<br>
@list = (1, 2, 3, 4, 5);<br>
foreach $temp (@list) {<br>
if ($temp ==
2) {<br>
$temp
= 20;<br>
}<br>
}<br>
此時(shí)@list已變成了(1, 20, 3, 4, 5)。<br>
<a name="5、do循環(huán)"> 5、do循環(huán)</a>
<br>
do {<br>
statement_block<br>
} while_or_until
(condexpr);<br>
do循環(huán)至少執(zhí)行一次循環(huán)。<br>
<a name="6、循環(huán)控制"> 6、循環(huán)控制</a>
<br>
退出循環(huán)為last，與C中的break作用相同；執(zhí)行下一個(gè)循環(huán)為next，與C中的continue作用相同；PERL特有的一個(gè)命令是redo，其含義是重復(fù)此次循環(huán)，即循環(huán)變量不變，回到循環(huán)起始點(diǎn)，但要注意，redo命令在do循環(huán)中不起作用。<br>
<a name="7、傳統(tǒng)的goto label;語(yǔ)句。">
7、傳統(tǒng)的goto label;語(yǔ)句。</a>
<br>
<br>
<a name="三、單行條件"> 三、單行條件</a>
<br>
語(yǔ)法為statement
keyword condexpr。其中keyword可為if、unless、while或until，如：<br>
print
("This is zero.\n") if ($var == 0);<br>
print
("This is zero.\n") unless ($var != 0);<br>
print
("Not zero yet.\n") while ($var-- > 0);<br>
print
("Not zero yet.\n") until ($var-- == 0);<br>
雖然條件判斷寫在后面，但卻是先執(zhí)行的。<br>
<br>
</p>
<p align="center"><a href="perl6.htm">上一章</a> <a href="perl8.htm">下一章</a> <a href="index.htm">目錄</a></p>
<br>
</body>
</html>
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -