蔡逸竹

控制敘述(Control Statements) [size=+1](a) Conditional Control Statements：Perl的條件控制敘述和C語言很像，讓使用者很快就能掌握它。不過Perl比C語言又另外多了些實用的語法，我用底線標出來，大家一看便知：

[size=+1]# Expression 就是條件敘述式，Perl和C一樣沒有定義布林資料型態(Boolean data type)，
# 因此 0 是false、非0 是ture。另外要注意字串運算子和數值運算子要分清楚哦。
# Code Segment 就是用大括號括起來的一堆指令，也就是一個Block。
if (Expression) {Code Segment}
if (Expression) {Code Segment} else {Code Segment}
if (Expression) {Code Segment} elsif (Expression) {Code Segment} else {Code Segment}
# elsif 就是 else if

# 如果指令(statement)只有一項，我們可以使用倒裝句法，看起來比較簡潔。
statement if (Expression);
# unless 就是if not
statement unless (Expression);
例：
print "HELLO!\n" if ($name eq "friend");
$x-=10 if ($x == 100);

看吧! C 語言有的Perl大部分都有，學過 C 的人可以毫不費力的學會Perl。
[size=+1](b) Loop Control Statements：Perl的迴圈控制敘述也和C語言很像，當然，照例Perl也另外多了些實用的語法： [size=+1]# 注意：純量變數前面要加個 $ 字號，這一點和C語言不一樣哦。
for($i=0; $i<=10; $i++) {Code Segment}

# foreach 是承襲UNIX的shell script來的，
# 第一個引數是純量變數，第二個引數要用括號括起來，裡面是一個純量陣列，
# 顧名思義它就是把陣列中的每個元素依序傳給第一個引數，直到全部傳完。
# 它和 for($i=0; $i<=$#array; $i++) 用法雖然不同，但目的都是要取出陣列的每個元素。
foreach $i (@array) {Code Segment}

# 其實在Perl中，for和foreach是可以混著用的，就看個的人習慣了。
# 下面這行就等於上面第一個敘述，不過簡潔多了，大家可以試著用用看。
for $i (0..10) {Code Segment}

# while控制迴圈和後置迴圈。
while($i<=10) {Code Segment}
do {Code Segment} while(Expression);

# Perl也有和C語言的break和continue一樣的指令，Perl叫它做 last 和 next (較口語化)。
# last是跳出現在所在的迴圈，next則是跳過下面的指令直接執行下一次的迴圈。
while(chomp($i=<STDIN>)) {
next if ($i == 5);
last unless ($i > 10);
}

Perl還有提供label(標記)的語法，也就是 goto 指令，不過有經驗的programer並不喜歡用它，我也不建議大家使用，所以就此按下不講。有興趣的人請自行查閱。還有一點值得注意的是Perl沒有提供像C語言一樣的 switch 敘述，不過Perl的pattern match的功能非常強，所以我建議你直接用 if else 敘述來做就好了。