如何在Log4perl中登录两个不同的文件？

Question

我有一个Perl脚本，可以生成两个不同的数据流。

我需要将它们记录到两个单独的日志文件中。

我知道有两种方法会导致生成不同的日志文件，但在我的情况下似乎都没有帮助：

1. 使用类别（Perl模块名称）。

   就我而言，这两个流都是在同一代码中产生的（“ main”程序包，但这是无关紧要的，重要的是，字面上我彼此相邻的代码行分别记录到了两个不能分割成不同Perl的位置模块）。

2. 使用不同的日志级别。

   但是，两者都应以相同的优先级进行记录（例如，两者都记录info()调用并error()视情况而定），因此我不能使用FAQ配方将WARN / ERROR记录到不同的文件中。

Answer 1

Log4perl 中的类别是任意的，与应用程序的类层次结构无关。

use strict;
use warnings;

use Log::Log4perl qw(get_logger);

my $conf = q(
log4perl.category.first  = DEBUG, FileAppender1
log4perl.category.second = DEBUG, FileAppender2

log4perl.appender.FileAppender1          = Log::Log4perl::Appender::File
log4perl.appender.FileAppender1.filename = first.log
log4perl.appender.FileAppender1.layout   = Log::Log4perl::Layout::SimpleLayout

log4perl.appender.FileAppender2          = Log::Log4perl::Appender::File
log4perl.appender.FileAppender2.filename = second.log
log4perl.appender.FileAppender2.layout   = Log::Log4perl::Layout::SimpleLayout
);

Log::Log4perl::init(\$conf);

my $logger1 = get_logger('first');
my $logger2 = get_logger('second');

$logger1->debug('foo');
$logger2->info('bar');
$logger1->error('baz');

第一个日志

DEBUG - foo
ERROR - baz

第二个日志

INFO - bar