在Perl中嘗試/捕獲鍵盤中斷？

Question

如何在Perl中捕捉鍵盤中斷？

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

Answer 1

您似乎試圖在這裏編寫Python。

「鍵盤中斷」，最有可能意味着SIGINT。您可以使用%SIG散列處理信號。例如：

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