79428156

Date: 2025-02-10 19:56:14
Score: 0.5
Natty:
Report link

Figured it out. Maybe someone has a better answer?

log4perl.logger.main = INFO, FileAppender1
log4perl.appender.FileAppender1          = Log::Log4perl::Appender::File
log4perl.appender.FileAppender1.filename = sub {               \
    my ($sec, $min, $hr, $day, $mon, $year) = localtime(time); \
    return sprintf("logfile.%d-%02d-%02d_%02d-%02d-%02d.log",  \
        $year+1900, $mon+1, $day, $hr, $min, $sec);            \
}
log4perl.appender.FileAppender1.mode     = write
log4perl.appender.FileAppender1.layout   = Log::Log4perl::Layout::SimpleLayout

Produces a file named: logfile.2025-02-10_14-48-00.log (or similar).

I'll probably consolidate the format string to:

"logfile.%d%02d%02d_%02d%02d%02d.log"

So it generates: logfile.20250210_144800.log. A little easier on the eyes.

Reasons:
  • Long answer (-0.5):
  • Has code block (-0.5):
  • Contains question mark (0.5):
  • Self-answer (0.5):
  • Low reputation (0.5):
Posted by: livefree75