为什么在Perl5.10中不继续执行下一个when块?

见 perlsyn 手册页:

给定(expr)将把expr的值赋给块的词法范围内的$\

此代码输出1和2:

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

我想你可能误解了 continue 或者交换机结构中的fallthrough的性质。

每个 when 块以隐式分隔符结尾,因此 given 成功匹配后退出。所有 持续 是不是告诉你 鉴于 块以继续处理 什么时候 条件和不爆发。它不会强迫下一个 什么时候 条件是当它不是真的时候,奇迹般地成为真的。

想想这个,它 做 输出两次。

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

因为给定的不是循环构造(尽管它支持continue,在该实例中是特殊情况),所以使用foreach或类似的方法:

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

for(expression)将$u设置为表达式,并且在某些情况下,在给定/何时之前,该行为用于模拟开关。