?? perl7.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>perl教程之 控制結構</title>
</head>
<body>
<br>
<p align="center">第七章 控制結構</p>
<a href="#一、條件判斷"> 一、條件判斷</a><br>
<a href="#二、循環："> 二、循環：</a><br>
<a href="#1、while循環">1、while循環</a> <br>
<a href="#2、until循環">2、until循環</a> <br>
<a href="#3、類C的for循環">3、for循環</a> <br>
<a href="#4、針對列表(數組)每個元素的循環">4、針對列表(數組)每個元素的foreach循環</a><br>
<a href="#5、do循環"> 5、do循環</a><br>
<a href="#6、循環控制">6、循環控制</a> <br>
<a href="#7、傳統的goto label;語句。">7、傳統的goto語句</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="二、循環："> 二、循環：</a>
<br>
<a name="1、while循環"> 1、while循環</a>
<br>
while (
<expression> ) {<br>
<statement_block><br>
}<br>
<a name="2、until循環"> 2、until循環</a>
<br>
until (
<expression> ) {<br>
<statement_block><br>
}<br>
<a name="3、類C的for循環"> 3、類C的for循環</a>
，如<br>
for ($count=1; $count
<= 5; $count++) {<br>
# statements
inside the loop go here<br>
}<br>
下面是在for循環中使用逗號操作符的例子：<br>
for ($line =
<STDIN>, $count = 1; $count <= 3;
$line = <STDIN>, $count++) {<br>
print
($line);<br>
}<br>
它等價于下列語句：<br>
$line = <STDIN>;<br>
$count = 1;<br>
while ($count <= 3) {
<br>
print
($line);<br>
$line =
<STDIN>;<br>
$count++;<br>
}<br>
<a name="4、針對列表(數組)每個元素的循環">
4、針對列表(數組)每個元素的循環：foreach，
語法為：</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)此處的循環變量localvar是個局部變量，如果在此之前它已有值，則循環后仍恢復該值。<br>
(2)在循環中改變局部變量，相應的數組變量也會改變，如：<br>
@list = (1, 2, 3, 4, 5);<br>
foreach $temp (@list) {<br>
if ($temp ==
2) {<br>
$temp
= 20;<br>
}<br>
}<br>
此時@list已變成了(1, 20, 3, 4, 5)。<br>
<a name="5、do循環"> 5、do循環</a>
<br>
do {<br>
statement_block<br>
} while_or_until
(condexpr);<br>
do循環至少執行一次循環。<br>
<a name="6、循環控制"> 6、循環控制</a>
<br>
退出循環為last，與C中的break作用相同；執行下一個循環為next，與C中的continue作用相同；PERL特有的一個命令是redo，其含義是重復此次循環，即循環變量不變，回到循環起始點，但要注意，redo命令在do循環中不起作用。<br>
<a name="7、傳統的goto label;語句。">
7、傳統的goto label;語句。</a>
<br>
<br>
<a name="三、單行條件"> 三、單行條件</a>
<br>
語法為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>
雖然條件判斷寫在后面，但卻是先執行的。<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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -