跳出 Perl 循环143

在 Perl 中，有几种方法可以跳出循环。最常见的方法是使用 last 语句。last 语句会立即终止当前循环，并继续执行循环后面的代码。
my @array = (1, 2, 3, 4, 5);
foreach (@array) {
if ($_ == 3) {
last;
}
print "$_";
}

此代码将打印 1 和 2，然后跳出循环，因为 3 是第一个遇到的元素。last 语句还可以带一个标签作为参数，以便跳出多个嵌套循环。
my %hash = (
'foo' => 1,
'bar' => 2,
'baz' => 3,
);
OUTER:
foreach my $key (keys %hash) {
INNER:
foreach my $value (values %hash) {
if ($key eq 'bar' && $value eq 2) {
last OUTER;
}
}
}

此代码将跳出 OUTER 和 INNER 循环，因为 last OUTER 语句遇到了键“bar”和值 2。另一个跳出循环的方法是使用 do 和 redo 语句。do 语句创建一个新的语句块，而 redo 语句导致 Perl 重新执行该块。这可以用于在满足某些条件时跳过循环的某些部分。
my @array = (1, 2, 3, 4, 5);
foreach (@array) {
do {
if ($_ == 3) {
redo;
}
print "$_";
}
}

此代码将打印 1、2、4 和 5，跳过 3。最后，也可以使用 next 语句跳出循环。next 语句将导致 Perl 继续执行循环的下一项。这可以用于只处理循环中满足某些条件的元素。
my @array = (1, 2, 3, 4, 5);
foreach (@array) {
next if $_ % 2 == 0;
print "$_";
}

此代码将打印 1、3 和 5，跳过偶数。选择哪种方法来跳出循环取决于具体情况。last 语句对于立即终止循环非常有用，do 和 redo 语句对于跳过循环的某些部分非常有用，next 语句对于只处理循环中满足某些条件的元素非常有用。

2024-12-10

上一篇：Perl 匹配行的强大技巧

下一篇：env Perl：探索环境变量的强大工具