如何将Perl警告记录到Log4perl日志中？

warnings编译也是必不可少的工具.

但是,当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.

并且日志文件没有捕获此警告.