Perl 循环

Perl 是一种流行的脚本语言，支持三种主要的循环结构： for，while 和 do-while。

for 循环

for 循环在 Perl 中用于在固定次数内执行循环体。它通常用来迭代数组或哈希表。

下面是 for 循环的语法：

for (my $i = 0; $i < 10; $i++) {
    # 循环体
}

上面的代码段将会执行 10 次循环体，$i 将被初始化为 0，每次循环体都将把 $i 增加 1，直到 $i < 10 不再为真。

while 循环

while 循环在 Perl 中用于在条件为真时执行循环体。它通常用于处理流或文件输入，或者在条件为真时重复某个操作。

下面是 while 循环的语法：

while (condition) {
    # 循环体
}

上面的代码段将会在 condition 为真时无限循环执行循环体，直到 condition 不再为真。

do-while 循环

do-while 循环在 Perl 中用于至少执行一次循环体，然后在条件为真时重复执行。它通常用于需要确保循环体至少执行一次的操作，如用户输入处理。

下面是 do-while 循环的语法：

do {
    # 循环体
} while (condition);

上面的代码段将会至少执行一次循环体，然后在 condition 为真时重复执行循环体。

示例

下面是一个演示如何使用 for 循环迭代数组的示例：

my @array = (1, 2, 3, 4, 5);

for my $element (@array) {
    print "$element\n";
}

上面的代码段输出数组 @array 的每个元素。

以下是使用 while 循环从流中读取数据的示例：

while (my $line = <STDIN>) {
    chomp($line);
    print "$line\n";
}

上面的代码段从标准输入中读取数据的每一行，并移除行尾的换行符。然后将每行数据输出到标准输出。

最后是一个使用 do-while 循环从用户那里获取输入的示例：

my $input;

do {
    print "请输入一些文本：";
    $input = <STDIN>;
    chomp($input);
    print "你输入的是：$input\n";
} while ($input ne "quit");

上面的代码段从用户那里读取文本直到用户输入 "quit" 为止。每次读取操作都将提示用户输入文本，并输出用户输入的文本。