2

我有以下用于多个脚本的 log4perl.conf 配置文件。它被配置为显示来自所有日志级别的消息。

# Log4perl configuration file

log4perl.rootLogger = ALL, screen, file

log4perl.appender.screen = Log::Log4perl::Appender::Screen
log4perl.appender.screen.stderr = 0
log4perl.appender.screen.layout = PatternLayout
log4perl.appender.screen.layout.ConversionPattern = %d %p> %m%n

log4perl.appender.file = Log::Log4perl::Appender::File
log4perl.appender.file.filename = sub { my $script=$0; $script =~ s/(dev|test|prod)\/script/log/; $script =~ s/\.[^.]+$//; return "$script.log" }
log4perl.appender.file.mode = append
log4perl.appender.file.layout = PatternLayout
log4perl.appender.file.layout.ConversionPattern = %d %p> %m%n

脚本使用此代码片段对其进行初始化：

use Log::Log4perl;
# Logger configuration
Log::Log4perl->init('/etc/log4perl.conf');
$logger = Log::Log4perl->get_logger();

由于有多个脚本使用相同的配置，因此无需每次都修改配置文件来调整日志记录级别的最佳方法是什么？

我可以创建一个新的记录器并让脚本使用该记录器而不是根记录器吗？

4

1 回答 1

0

您可以使用该level方法来调整程序内部的日志记录级别：

use strict;
use warnings 'all';

use Log::Log4perl;
use Log::Log4perl::Level;

Log::Log4perl->init(\*DATA);

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

$logger->info('before');
$logger->level($INFO);
$logger->info('after');

__DATA__
log4perl.rootLogger             = WARN, Screen
log4perl.appender.Screen        = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Screen.layout.ConversionPattern = %d %p> %m%n

输出：

2017/01/25 12:59:58 INFO> after

这不会影响使用相同配置文件的其他脚本，因为它们每个都有自己的 Log::Log4perl 实例。

或者，您可以使用more_logging/inc_level或less_logging/dec_level方法，它们采用增量值而不是绝对日志记录级别。

于 2017-01-25T20:06:24.370 回答