如何将 Perl 警告捕获到 Log4perl 日志中？

Question

Log4perl 是一个很棒的日志记录工具。

警告编译指示也是一个重要的工具。

然而，当 Perl 脚本作为守护进程运行时，Perl 警告将打印到 STDERR 中，而没有人可以看到它们，而不是打印到相关程序的 Log4perl 日志文件中。

有没有办法将 Perl 警告捕获到 Log4perl 日志中？

例如，此代码将很好地记录到日志文件中，但如果它作为守护程序运行，Perl 警告将不会包含在日志中：

#!/usr/bin/env perl
use strict;
use warnings;

use Log::Log4perl qw(get_logger);

# Define configuration
my $conf = q(
                log4perl.logger                    = DEBUG, FileApp
                log4perl.appender.FileApp          = Log::Log4perl::Appender::File
                log4perl.appender.FileApp.filename = test.log
                log4perl.appender.FileApp.layout   = PatternLayout
);

# Initialize logging behaviour
Log::Log4perl->init( \$conf );

# Obtain a logger instance
my $logger = get_logger("Foo::Bar");
$logger->error("Oh my, an error!");

$SIG{__WARN__} = sub {
    #local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
    $logger->warn("WARN @_");
};

my $foo = 100;
my $foo = 44;

这仍然打印到 STDERR：

"my" variable $foo masks earlier declaration in same scope at log.pl line 27.

并且日志文件不会捕获这个警告。

Answer 1

您可以安装一个 WARN 处理程序来执行此操作。 Log4perl 常见问题解答。

我的程序已经使用 warn() 和 die()。我如何切换到 Log4perl？

如果您的程序已经使用 Perl 的 warn() 函数来输出错误消息，并且您希望将这些消息引入 Log4perl 世界，只需定义一个 WARN程序或模块所在的处理程序：

use Log::Log4perl qw(:easy);
$SIG{__WARN__} = sub {
    local $Log::Log4perl::caller_depth =
        $Log::Log4perl::caller_depth + 1;
    WARN @_;
};

这将捕获程序中任何显式使用 warn 的情况，以及有关使用未初始化值等的 Perlish 警告。

Answer 2

它在 Log4perl FAQ 中为 一些模块打印发送至 STDERR 的消息。如何将它们汇集到 Log::Log4perl？ 和 我的程序已经使用 warn() 和 die()。如何切换到 Log4perl？。

您的具体问题有一个额外的问题，您会看到编译时警告，因此您需要调整常见问题解答建议以尽早在编译时设置日志记录。在尽可能靠近源代码顶部的 BEGIN 块中执行此操作：

 BEGIN {
     ... all of your logging setup
     }

您可以通过在启用警告的情况下运行语法检查来判断这是否是编译时警告：

 % perl -cw program

如果您看到警告在语法检查期间，这是一个编译时警告。

不过，我宁愿在开发中捕获编译时警告。他们不应该进入生产系统。 :)