为什么我的 continue 不执行 Perl 5.10 中的下一个 when 块？

Question

当我运行此命令时：

use feature ':5.10';
$x=1;
given ($x) {
    when(1) {
        say '1';
        $x = 2;
        continue;
    }
    when (2) {
        say '2';
    }
}

这应该打印 1 和 2，但它只打印 1。我错过了什么吗？

编辑：

我添加了 $x = 2 但它仍然只打印“1”

Answer 1

请参阅 perlsyn 手册页：

given(EXPR) 会将 EXPR 的值赋给块词法范围内的 $_

此代码输出 1 和 2：

use feature ':5.10';
$x=1;
given ($x) {
    when(1) {
        say '1';
        $_ = 2;
        continue;
    }
    when (2) {
        say '2';
    }
}

Answer 2

我认为您可能误解了 continue 的目的或 switch 构造中失败的本质。

每个 when 块都以隐式中断结束，因此 given 在成功匹配时退出。 continue 所做的只是告诉 given 块继续处理 when 条件并且不中断。当下一个 when 条件不为真时，它不会强制其神奇地为真。

考虑一下这个，它确实输出两次。

use feature ':5.10';
$x=1;
given ($x) {
    when(1) {
        say '1';
        continue;
    }
    when ( /1/ ) {
        say '1 again';
    }
}

Answer 3

由于给定不是循环构造（尽管它支持 continue，这在该实例中是特殊情况），请使用 foreach 或 for 像这样：

use feature ':5.10';
$x=1;
for ($x) {
    when(1) {
        say '1';
        $x = 2;
        continue;
    }
    when (2) {
        say '2';
    }
}

for（表达式）将 $_ 设置为表达式，并且该行为用于模拟某些中的 switch情况下，在给定之前/何时。