Perl 循环学习笔记

在Perl中，循环结构用于重复执行一段代码。Perl提供了多种循环结构，包括for循环、while循环和do-while循环。

for循环

for循环用于对一个代码块进行指定次数的重复执行。for循环通常用于对数组或列表进行迭代。

perlCopy Code
for (my $i = 0; $i < 10; $i++) {
    print "当前数字为：$i\n";
}

上述代码段会输出从0到9的整数，因为for语句中的$i < 10条件成立的时候，代码块内的语句会被执行。

while循环

while循环用于在条件为真的情况下重复执行一个代码块。一旦条件变为假，则结束循环。

perlCopy Code
my $i = 0;
while ($i < 10) {
    print "当前数字为：$i\n";
    $i++;
}

上述代码会输出从0到9的整数，因为只要$i < 10这个条件为真，代码块内的语句就会被执行。

do-while循环

do-while循环是while循环的一种变体，它保证了代码块至少被执行一次，并在条件变为假之前重复执行。

perlCopy Code
my $i = 0;
do {
    print "当前数字为：$i\n";
    $i++;
} while ($i < 10);

上述代码会输出从0到9的整数，并且最后一次输出时$i的值为10，因为do-while循环保证了循环体至少被执行一次。

循环控制语句

Perl提供了多种循环控制语句，可以在循环中控制程序的流程。常用的循环控制语句包括：

• next：跳过当前迭代并进入下一次迭代。
• last：强制退出循环。
• redo：重新执行当前迭代。

perlCopy Code
for (my $i = 0; $i < 10; $i++) {
    if ($i == 5) {
        next; # 跳过本次迭代
    }
    if ($i == 8) {
        last; # 退出循环
    }
    if ($i == 3) {
        redo; # 重新执行本次迭代
    }
    print "当前数字为：$i\n";
}

以上代码会输出0、1、2、3、3、4、6、7，因为当$i等于5时，本次迭代会被next跳过；当$i等于8时，循环会被last强制退出；而当$i等于3时，循环会被redo重新执行本次迭代，所以输出了两个3。

以上就是关于Perl循环的学习笔记。希望可以对学习Perl编程的同学有所帮助！