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