1

我正在编写一个 Log4perl 记录器，并且正在使用 localtime() 函数。问题是，每次我调用重新实例化 log4perl 记录器的模块（对于不同的文件）时，localtime() 都会有所不同，当我希望它们都在一个文件中时会创建几个不同的日志文件。
想法？

use strict;
use warnings;
use Config::IniFiles;
use File::Copy;
use Cwd 'abs_path';
use Path::Class;

以上是我做之前的代码use LIB::Paths，也是第一个使用Paths.pm的文件。下面的代码是 Paths.pm 文件。第一个文件调用use LIB::Paths，第二个文件也是如此[可以添加，但我不想把所有代码都扔给你们]。 这会产生两个单独的时间戳。

my @now = localtime();
### May want to add something from the input name to the log file
our $timeStamp = sprintf("%04d_%02d%02d_%02d%02d%02d", 
                    $now[5]+1900, $now[4]+1, $now[3],
                    $now[2],      $now[1],   $now[0]);

my $logFile = "$timeStamp.log";
our $fullLogPath = $output_dir . "/" . $log_dir . "/" . $logFile;
qx(touch $fullLogPath);

# write path and level to log configuration file
our $logLevel = $parms->val('MAIN','LogLevel');

open FILEHANDLE, '>', "$base_dir/CONFIG/log.conf";

print FILEHANDLE "log4perl.rootLogger=$logLevel, LOGFILE\n";
print FILEHANDLE "log4perl.appender.LOGFILE=Log::Log4perl::Appender::File\n";
print FILEHANDLE "log4perl.appender.LOGFILE.filename=$fullLogPath\n";
print FILEHANDLE "log4perl.appender.LOGFILE.mode=append\n";
print FILEHANDLE "log4perl.appender.LOGFILE.layout=PatternLayout\n";
print FILEHANDLE "log4perl.appender.LOGFILE.layout.ConversionPattern=%F{1} %8L %10p %n     %m%n";

close (FILEHANDLE);
open SECONDFILE, '>', "$base_dir/CONFIG/log2.conf";

print SECONDFILE "log4perl.rootLogger=$logLevel, LOGFILE\n";
print SECONDFILE "log4perl.appender.LOGFILE=Log::Log4perl::Appender::File\n";
print SECONDFILE "log4perl.appender.LOGFILE.filename=$fullLogPath\n";
print SECONDFILE "log4perl.appender.LOGFILE.mode=append\n";
print SECONDFILE "log4perl.appender.LOGFILE.layout=PatternLayout\n";
print SECONDFILE "log4perl.appender.LOGFILE.layout.ConversionPattern=%F{1} %n     %m%n";

close (SECONDFILE);
4

1 回答 1

1

首先，您不必使用文件来存储 log4perl 配置，您可以使用字符串来初始化记录器。

其次，您可以使用 filerotate appender 每天创建一个新的日志文件，保留最后 n 个文件。

在您的示例中，每次调用都会创建一个新文件。如果您只使用一天“特定”模式，它将每天创建一个新文件：

our $timeStamp = sprintf("%04d_%02d%02d",  $now[5]+1900, $now[4]+1, $now[3]);
                );

问候，

文件旋转：

my $fullLogPath = $output_dir . "/" . $log_dir . "/" . "testlogger.log";
# Logger config
my $log_conf = q(
    log4perl.category = INFO, FileAppndr
    log4perl.appender.FileAppndr             = Log::Dispatch::FileRotate
    log4perl.appender.FileAppndr.filename    = $fullLogPath
    log4perl.appender.FileAppndr.mode        = append
    log4perl.appender.FileAppndr.DatePattern = yyyy-MM-dd
    log4perl.appender.FileAppndr.max         = 10
    log4perl.appender.FileAppndr.TZ          = GMT
    log4perl.appender.FileAppndr.layout      = PatternLayout
    log4perl.appender.FileApp.layout.ConversionPattern = %F{1} %n     %m%n
);
# Initialize Logger 
Log::Log4perl::init_once(\$log_conf);
于 2013-02-19T08:59:53.187 回答