perl - 如何检查代码是否由于最后一个命令而退出循环？

Question

在循环中，我有几个条件，如果不满足条件，我会使用 last 退出循环语法。

while (condition) {
    if (possibility 1) {
        ...
        last;
    }

    if (possibility 2) {
        if (possibility 3) {
            ...
            last;
        }
        ...
        last;
    }
}

在我退出循环后，我需要知道我是否使用 last 退出，或者 条件 不再成立。一种方法是编写一个否定所有可能性的 if 语句。

我正在寻找一些更简单/更优雅的方法来做到这一点。

是否有一些 Perl 变量存储我们由于 last 而退出循环的信息？还是我需要自己维护这样一个变量？

Answer 1

你几乎只需要在退出前设置一个标志