perl - 在do循环中替代 "last"

Question

根据针对last(http://perldoc.perl.org/functions/last.html)的perl手册，不能使用last打破do {}循环，但是没有提及替代方法。我要维护的脚本具有以下结构:

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

而且我非常确定他想转到循环的结尾，但是实际上它退出了当前子例程，因此，如果有人可以推荐一种更好的方法，那么我需要更改 last或重构整个循环。

Answer 1

do BLOCK while (EXPR)很有趣，因为它实际上并不是一个循环结构。因此，不应在此处使用last，next和redo。摆脱最后一个，并在发现这种情况时将EXPR调整为假。
另外，请启用“严格”，这至少应该给您一个警告。