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" };