1

我知道如何配置 log4j,以便日志文件自动轮换,并将日期附加到日志文件中。?

log4j.appender.schedulerService.Directory = ${logdir}
log4j.appender.schedulerService.Prefix = web.log_
log4j.appender.schedulerService.Suffix = 

我怎样才能用 log4perl 达到同样的效果?

我为 log4Perl 尝试了相同的配置,但看起来文件名参数是强制性的。任何帮助表示赞赏。

Mandatory parameter 'filename' missing in call to Log::Dispatch::File::_make_handle
4

2 回答 2

1

查看Log::Dispatch::File::Stamped - 它将直接写入带日期标记的日志文件,避免实际轮换它(只要检测到日期已更改,它就会启动一个新的日志文件)。

log4perl.appender.Logfile=Log::Dispatch::File::Stamped
log4perl.appender.Logfile.min_level=info
log4perl.appender.Logfile.filename=foo.log
log4perl.appender.Logfile.stamp_fmt=%Y%m%d
于 2013-02-19T06:13:45.437 回答
0

这是一个常见问题解答:如何在午夜自动翻转我的日志文件?


子类Log::Dispatch::FileRotate添加自定义文件扩展名:

package Log::Dispatch::FileRotate::FileExtension;
use parent 'Log::Dispatch::FileRotate';
use strictures;
use SUPER qw();
use Time::Piece qw();

sub new {
    my ($self, %p) = @_;
    $self = $self->SUPER(%p);
    $self->{extension} = $p{extension};
    return $self;
}

sub log_message {
    ### lines 177..235 from parent class go here
        warn localtime() . " $$ Rotating\n" if $self->{debug};
        my $stamp = Time::Piece->localtime->strftime($self->{extension});
        warn "$$ rename $name $stamp\n" if $self->{debug};
        rename $name, sprintf('%s.%s', $name, $stamp);
        warn localtime() . " $$ Rotating Done\n" if $self->{debug};
    ### lines 257..266 from parent class go here
}

1;

用法:

use Log::Dispatch::FileRotate::FileExtension qw();
my $file = Log::Dispatch::FileRotate::FileExtension->new(
    name => 'file1',
    min_level => 'info',
    filename  => 'Somefile.log',
    DatePattern => 'yyyy-MM-dd',
    extension => '%F',
);
于 2012-07-09T20:12:54.670 回答