perl - 在 Perl 中尝试/捕获键盘中断？

Question

如何在 Perl 中捕捉键盘中断？

while(1) {
    try {
        print 1;
    } 
    catch KeyboardInterrupt {
        print 2;
    }
}

Answer 1

您似乎正在尝试在这里编写 Python。

“键盘中断”，很可能是指SIGINT. %SIG您可以使用哈希处理信号。例如：

$SIG{INT} = sub { print "Received SIGINT\n" };