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

Question

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

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

Answer 1

你似乎试图在这里编写Python.

"键盘中断",很可能意味着SIGINT.您可以使用%SIG哈希处理信号.例如:

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