Redirect sterben Meldungen in eine Datei

Question

ich eine Datei wie unten öffnen:

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

Wenn die Datei nicht existiert es die Fehlermeldung auf der Konsole schreibt, aber ich möchte diese Nachricht in einer Datei speichern.

Wie kann es gemacht werden?

Answer 1

Von perlvar

Die Routine von $SIG{__DIE__} angezeigt wird aufgerufen, wenn eine fatale Ausnahme im Begriff ist, geworfen zu werden. Die Fehlermeldung wird als erstes Argument übergeben.

Sie können es wie unten verwenden:

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