使用 Log::Log4perl 记录所有意外错误

Question

我想为我的 Perl 脚本生成一个日志。但是当我使用 Log::Log4perl 时，我怎样才能捕获脚本在任何情况下都会抛出的错误。如何将其记录到日志中 file.Currently 无论我在诸如 ERROR()、DEBUG() 等各种标记中明确写入什么，都是唯一被打印到日志文件中的标记。

有什么方法可以使用 Log::Log4perl.

例如下面的代码：

use strict;
use warnings;
use Log::Log4perl qw(:easy);

Log::Log4perl->easy_init( { level   => $DEBUG,
                            file    => ">>test.log" });

my $logger = Log::Log4perl->get_logger();                           

$logger->fatal( "This is", " fatal");
$logger->error( "This is error");
$logger->warn(  "This is warn");
$logger->info(  "This is info");
$logger->debug( "This is debug");
$logger->trace( "This is trace");

my $a = 10;

my $b = $a/0;

被零除错误没有记录到脚本中。我的原始脚本太复杂了，无法检查每个错误，因此需要一些将 stderr 上的错误也记录到日志文件中的东西。

Answer 1

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;
    }
    $Log::Log4perl::caller_depth++;
    my $logger = get_logger("");
    $logger->fatal(@_);
    die @_; # Now terminate really
};

另见Log4perl - how can I make sure my application logs a message when it dies unexpectedly?

使用 Log::Log4perl 记录所有意外错误

Log all unexpected errors using Log::Log4perl

error-handling

perl

log4perl