Perl : 처리되지 않은 오류의 경우 log4Perl 호출 log4perl

Question

log4Perl에서 프로그램이 eval 절 외부에서 치명적인 오류를 발생시킬 수있는 방법이 있습니까? 처리되지 않은 프로그램 종료의 경우에도 log4perl을 호출하기를 원합니다. 선호하는 모든 Perl 프로그램과 함께로드 된 표준 모듈 내에 관련 오류 처리기를 추가하고 싶습니다.
펄 버전은 현재 5.8이지만 곧 업그레이드 될 예정입니다.
주어진 답변에 대한 테스트 코드입니다. 화면에 DIE도 표시되지 않으며 die.txt가 만들어지지 않습니다.

use Log::Log4perl qw(get_logger); 
$a->test(); 
$SIG{__DIE__} = sub { 
warn "DIE"; 
open DIE,">die.txt"; 
print DIE "died\n"; 
close DIE; 
}; 

Answer 1

는 How can I make sure my application logs a message when it dies unexpectedly?

use Log::Log4perl qw(get_logger); 

$SIG{__DIE__} = sub { 
    if($^S) { 
     # We're in an eval {} and don't want log 
     # this message but catch it later 
     return; 
    } 
    local $Log::Log4perl::caller_depth = 
      $Log::Log4perl::caller_depth + 1; 
    my $logger = get_logger(""); 
    $logger->fatal(@_); 
    die @_; # Now terminate really 
}; 

가가 "마스크"는 의견 (어떤 포맷이 허용되지 않습니다 코드로 차례)에 밑줄 역 따옴표를 둘러싼 더