“最后”的替代在 do 循环中

Question

根据 for last 的 perl 手册 (http://perldoc.perl .org/functions/last.html），last 不能用于打破 do {} 循环，但它没有提到选择。我正在维护的脚本具有以下结构：

do {
    ...
    if (...) 
    {
        ...
        last;
    }
} while (...);

我很确定他想要转到循环的末尾，但它实际上退出了当前的子例程，所以我需要更改 last或者如果有人可以推荐更好的方法，则重构整个循环。

Answer 1

将 do“循环”包装在一个裸块中（这是一个循环）：

{
    do {
        ...
        if (...) 
        {
            ...
            last;
        }
    } while (...);
}

这适用于最后一个和重做，但不适用于下一个；为此，将裸块放置在 do 块内：

do {{
    ...
    if (...) 
    {
        ...
        next;
    }
    ...
}} while (...);

Answer 2

do BLOCK while (EXPR) 很有趣，因为 do 并不是真正的循环结构。因此，last、next 和 redo 不应该在那里使用。当发现这种情况时，去掉最后一个并调整 EXPR 以评估错误。
另外，打开严格，这至少应该给你一个警告。

Answer 3

从不喜欢 Perl 中的 do/while 循环。 do 并不是真正的循环，这就是为什么 last 不会跳出循环。在我们古老的Pascal茫然中，你无法在中间退出循环，因为根据圣人 Niklaus“一个入口/一个出口”Wirth 的说法，这是错误的。因此，我们必须创建一个退出标志。在 Perl 中，它看起来像这样：

my $endFlag = 0;
do {
    ...
    if (...) 
    {
        ...
        $endFlag = 1;
    }
} while ((...) and (not $endFlag));

现在，你可以看到 Pascal 从未流行起来。

Answer 4

为什么不直接使用 while 循环呢？

while (...) {
  ...
  if (...) {
    last;
  }
}

您可能需要稍微改变您的逻辑，以适应您的测试是在循环的开始而不是结束的事实，但这应该是微不足道的。

顺便说一句，如果您使用 Delphi，您实际上可以摆脱 Pascal 循环，并且 Delphi 确实流行了一段时间，直到 Microsoft 醒悟并推出了 .net 语言。

Answer 5

@“http://perldoc.perl.org/functions/last.html”：
last 不能用于退出返回值（例如 eval {} 、 sub {} 或 do {} ）的块，也不应用于退出 grep() 或 map() 操作。

因此，在“while()”中使用布尔值并将其设置在“last”的位置...

Answer 6

聚会迟到了——我最近一直在搞乱for(;;)。在我的基本测试中，对于条件表达式 A 和 B，您想要执行的操作：

do {
    last if A;
} while(B);

可以完成为：

for(;; B || last) {
    last if A;
}

有点难看，但也许并不比其他表达式更难看解决方法:)。示例：

my $i=1; 
for(;; $i<=3 || last) { 
    print "$i ";
    ++$i;
}

输出 1 2 3。如果需要，您可以组合增量：（

my $i=1;
for(;; ++$i, $i<=3 || last) { 
    print "$i ";
}

使用 || 因为它的优先级高于 ,）