如何让Log4perl每天轮换我的日志?

IAm*_*aja 3 linux perl logging log4perl

我正在阅读Log4perl,并希望尝试将其用于在Linux机器上运行的Perl脚本的简单日志管理.我也读过newsyslog,logrotate但是想尽可能使用Log4perl.

我正在尝试配置/etc/log4perl.conf文件,以便它:

  • 定义将所有输出写入的widget记录器(INFO级别)/opt/myapp/logs/myapp-<datetime>.log,其中<datetime>是日期/时间格式化的字符串2012-12-20
  • myapp-<datetime>.log文件需要每天(最好在午夜)旋转,删除旧文件,并创建一个新文件<datetime> + 1.例如,myapp-2012-12-20.log将替换为myapp-2012-12-21.log等.

这是我认为最接近的最佳尝试,但仍缺少一些配置:

#####/etc/log4perl.conf############################################################
log4perl.logger.widget                      = INFO, MyAppLogAppender

log4perl.appender.MyAppLogAppender          = Log::Log4perl::Appender::File
log4perl.appender.MyAppLogAppender.filename = /opt/myapp/logs/myapp-???.log
log4perl.appender.MyAppLogAppender.layout   = Log::Log4perl::Layout::SimpleLayout
###################################################################################
Run Code Online (Sandbox Code Playgroud)

如何配置log4perl.appender.MyAppLogAppender每天旋转一次,删除旧文件,并创建一个具有正确时间戳的新文件?提前致谢.

cre*_*ive 12

下面是一个Log :: Log4perl配置文件的示例,它定义了午夜的每日翻转(日期模式yyyy-MM-dd),保持最多5个已保存的日志文件,处于WARN级别,并将所有内容转储到屏幕:

log4perl.logger                         = TRACE, Screen, Logfile

log4perl.appender.Logfile               = Log::Dispatch::FileRotate
log4perl.appender.Logfile.Threshold     = WARN
log4perl.appender.Logfile.filename      = test.log
log4perl.appender.Logfile.max           = 5
log4perl.appender.Logfile.DatePattern   = yyyy-MM-dd
log4perl.appender.Logfile.TZ            = PST
log4perl.appender.Logfile.layout        = Log::Log4perl::Layout::PatternLayout 
log4perl.appender.Logfile.layout.ConversionPattern = %d %m %n

log4perl.appender.Screen                = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr         = 0
log4perl.appender.Screen.utf8           = 1
log4perl.appender.Screen.layout         = Log::Log4perl::Layout::PatternLayout::Multiline
log4perl.appender.Screen.layout.ConversionPattern = [%p] %m %n
Run Code Online (Sandbox Code Playgroud)

(参考:https://metacpan.org/module/Log :::Log4perl:: FAQ#How-can-I-roll-over-my-logfiles-automatically-at-midnight-)