重定向死亡消息記錄到文件

Question

我打開一個文件，如下圖所示：

open (my $fh, '<', $query_file) or die "Query for specified metric does not exist : $!"; 
my $query = <$fh>; 
close $fh; 

當文件不存在，它寫入錯誤消息在控制檯上，但我想在一個文件中保存該消息。

它是如何做到的？

Answer 1

從perlvar

通過$SIG{__DIE__}指示的程序時一個致命的 例外是即將拋出被調用。該錯誤消息作爲 第一個參數傳遞。

你可以用它象下面這樣：

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