Question

有人能解释为什么下一个脚本不起作用吗？ Label not found for "last SOME_BLOCK"错误的原因是什么？

#!/usr/bin/perl
use v5.14;
SOME_BLOCK: {
    alarm 1;
    $SIG{ALRM} = sub {
        last SOME_BLOCK;
    };
    my $count = 0;
    while (1) {
        $count += 1;
        say $count;
    }
};

Answer 1

根据perldoc禁止通过last或next退出子程序（通常会触发警告）。这是因为它非常混乱 - Perl需要动态搜索范围以找到您试图跳过的块，并从各种函数调用return（但应该使用什么返回值？）。 return通常更安全。

在信号处理环境中，它更加混乱，因为Perl实际上必须暂停脚本的执行才能执行信号处理程序。所以它现在运行两个独立的执行上下文，信号处理程序上下文不能直接影响主上下文的控制流，这就是你得到错误的原因。

您可以做两件事：

抛出异常（使用die）并在外部块中捕获它。这是不可取的，因为它可能会中断任何事情。
设置在信号处理程序外定义的全局标志，例如（$caught_signal = 1）并在方便的位置检查内码中的内容。

为什么不能从Perl中的信号处理程序终止循环？

1 个答案: