41、Perl 循环控制指令与 select 循环的使用

Perl 循环控制指令与 select 循环的使用

1. 循环控制指令的使用

在 Perl 编程中，循环控制指令是非常实用的工具，它可以帮助我们更灵活地控制循环的执行流程。下面是一个带有标签的循环示例：

OUTER: while ( COMMAND_RETURNS_TRUE ) {
    INNER: foreach $item ( LIST ) {   # MEANING:
        TRUE_CONDITION  and  next INNER;  # next iteration: foreach
        TRUE_CONDITION  and  next OUTER;  # next iteration: while
        TRUE_CONDITION  and  last INNER;  # leave: foreach
        TRUE_CONDITION  and  last OUTER;  # leave: while
    }   
    # "leave: foreach" comes here
    # following exits while; same effect and coding as Line 6
    TRUE_CONDITION  and  last OUTER;  # leave: while
}
# "leave: while" comes here

为了提高代码的可读性，建议使用大写字母作为循环标签。如果我们的意图是影响最内层的循环，可以省略循环指定符（Shell 中的数字或 Perl 中的标签）。与 Shell 的