Perl 程式設計/控制流

控制結構

基本的控制結構與 C 程式語言或 Java 程式語言中使用的控制結構沒有太大區別。

迴圈

while ($boolean) {
    # do something
}

until ($boolean) {
    # do something
}

儘管語法相同，但 Perl 不使用break和continue來改變迴圈的流程。Perl 提供以下命令：（帶註釋的 C 等價物）

while ($boolean) {
    # do something
    if($finished) {
        last;  # equivalent to 'break'
    }
    if($done) {
        next;  # equivalent to 'continue'
    }
    # do some more
}

注意，在while（或until）迴圈中，如果布林表示式在第一次迴圈時計算為 false（或 true），則不會執行迴圈中的語句，即使語句在程式碼塊的末尾指定。因此，以下迴圈在功能上是等價的：（這同樣適用於do {} until)

while ($boolean) {
    # something
}

do {
    # something
} while ($boolean);

Thedo {} whileand thedo {} untilloops are technically statement modifiers and not actual control structures. The statements will be executed at least once.

for (my $i = 0; $i < 10; $i++) { # for (initialization; termination condition; incrementing expr) { … }
    print "$i\n";
}

foreach my $variable (@list) {
    print "$variable\n";
}

$variable是@list中每個元素的別名，從第一次迴圈的第一個元素開始。當列表中的所有元素都被遍歷完後，迴圈退出。由於$variable是別名，更改其值將更改列表中元素的值。為了提高程式碼的可維護性，一般應避免這種情況。

如果$variable被省略，則使用預設變數$_。

foreach (@list) {
    print "value: $_ \n";
}

注意for和foreach實際上是同義詞，可以互換使用。

程式碼塊可以有一個可選的continue部分，該部分在每次迭代結束時執行。

while ($i<4) {
  $i++;
} continue {
  print "$i\n";
}

`next`, `redo`, `last`

在迴圈內部，有三個關鍵字控制迴圈的處理方式。

要開始下一次迭代，next跳到程式碼塊的末尾。如果有continue程式碼塊，則會執行該部分，並執行條件語句以繼續迴圈。

要重新開始一次迭代，redo跳到程式碼塊的開頭。既不會執行continue，也不會執行條件語句。

要退出迴圈，last跳出程式碼塊的末尾。既不會執行continue，也不會執行條件語句。

`given`

在 5.10.1 版本之前，Perl 沒有等效於其他程式語言中的 switch 語句。從該版本開始，它成為一項實驗性功能。

在 Perl 5 中，需要使用以下語句之一來啟用它。

use feature "switch";
use v5.14;
</blockquote>

<syntaxhighlight lang="perl">
given ($t)
{
    when ("one") { say 'one'; }
    default { say 'default'; }
}

預設情況下，when中的表示式與given中的內容匹配。在某些特殊情況下，該值可以作為布林值直接使用。

`if-then`語句

if ($boolean_expression) {
    # do something
}

unless ($boolean_expression) {
    # do something
}

帶else程式碼塊的語句（這些語句也適用於unless而不是if)

if ($boolean) {
    # do something
} else {
    # do something else
}

if ($boolean) {
    # do something
} elsif ($boolean) {
    # do something else
}

字尾表示法

控制語句也可以使用條件語句緊隨其後（稱為“字尾”）的方式編寫。此語法與上面給出的語法功能（幾乎）相同。

statement if Boolean expression;
statement unless Boolean expression;
statement while Boolean expression;
statement until Boolean expression;
statement foreach list;