リダイレクトは、私は以下のようにファイルを開いていたファイル

Question

にメッセージを死にます。

どうすればいいですか？致命的な 例外がスローされようとしているときに

Answer 1

perlvar

から$SIG{__DIE__}で示されるルーチンが呼び出されます。エラーメッセージは、最初の引数 として渡されます。

あなたは以下のようにそれを使用することができます：

local $SIG{__DIE__} = sub { 
    my ($die_message) = @_; 
    open (my $log, ">>", '/tmp/die.log'); 
    print $log $die_message; 
};