迴圈控制敘述(Loop Control Statements)

迴圈控制敘述(Loop Control Statements)

我們知道迴圈可以幫助程式，「反覆進行」同一個區塊內的運算，

但有時候我們會希望，迴圈能「跳過」某次運算，或是「轉向」其他程式區塊。

這個「跳過」或「轉向」的操作，就是這篇迴圈控制要說明的部分了。

靈活的迴圈控制能節省程式執行時間，

但必須謹慎的使用，避免程式結構被破壞而導致維護上的困難。

之前提過的for、foreach、while、until，

我們在控制敘述的重複執行有說明，

在這裡我們就討論，怎麼在這幾個迴圈內做操作吧！

---

last

顧名思義就是讓迴圈停止。

用法是寫在迴圈內，我們來用例子說明：

for ($i=0;$i<10;$i++)

{ # $i會先從0開始 每跑完一次就會累加1

if($i==8) # 當$i為8時

{

last; # 終止迴圈

}

print $i; # 把$i印出來

}

執行結果就會看到 只印到7就不執行了。

如果要偷懶點的寫法，可以寫成：

for ($i=0;$i<10;$i++)

{ # $i會先從0開始 每跑完一次就會累加1

last if($i==8); # 當$i為8時終止

print $i; # 把$i印出來

}

執行結果會是相同的。

---

redo

可以讓迴圈重複執行一次，

用法同樣是寫在迴圈內，來看例子：

$count=0; # 迴圈外放一個計數器

for ($i=0;$i<10;$i++)

{ # $i會先從0開始 每跑完一次就會累加1

$count++;

redo if($count==8); # 當$count為8時重作"一次"迴圈

print $count; # 把$count印出來

}

執行結果就會看到，8多加了一次，結果就是8沒有印出來。

---

next

既然可以讓迴圈停止、重作，

當然，一樣就有「略過」的控制敘述，

用法同樣是寫在迴圈內，來看例子：

for ($i=0;$i<10;$i++)

{ # $i會先從0開始 每跑完一次就會累加1

next if($i==8); # 當$i為8時略過

print $i; # 把$i印出來

}

執行結果就會看到，8沒有被印出來。

---

知道了迴圈的「終止」、「重作」、「略過」之後，

最後一個我們要看的，是用來做「轉向」的標籤(Label)

標籤的作用是讓Perl知道接下來要跳到哪裡去，

很多程式設計師很反對使用標籤，因為會對程式架構上，有一定程度的破壞。

不過阿逸自己則是認為，適時的使用反而會增加方便性。

有時候單單利用next或last無法逃離迴圈到正確的地方時，

就會使用到標籤(Label)。標籤使用方式為：

1.定義標籤所在位置及名稱，要大寫，並且要有冒號(:)。

2.使用時，加上goto 以及標籤名稱。

直接來看怎麼用吧：

@array= qw/123 456 789 246 468 135 357/; # 依序放入陣列

$pattern= 456; # 用來比對的樣式

foreach (@array)

{

print $_; # 印出每次讀取的陣列內容

if ($pattern== $_) # 比對成功時

{

goto LABEL; # 轉向到標籤點

}

}

LABEL: # 記住 這裡是使用冒號(:) 表示標籤的定位點

執行結果就會看到，符合條件後，程式就跳到迴圈外的標籤。

---

接下來就要加入一些檔案處理的觀念了，

要進行的部分是Perl的檔案存取。