perl -v
This is perl 5, version 18, subversion 2 (v5.18.2) built for MSWin32-x64-multi-thread
####
ppm list --no-header --matching Log- --fields name,version
Log-Dispatch 2.42
Log-Dispatch-FileRotate 1.11
Log-Log4perl 1.46
Log-Message 0.08
Log-Message-Simple 0.10
####
#!/usr/bin/perl
use 5.018;
use Log::Dispatch::FileRotate;
use Log::Log4perl qw/:easy :no_extra_logdie_message/;
use strict;
use warnings;
local $/ = undef;
Log::Log4perl::init(\);
local $| = 1;
INFO("LOG 1: Sleep for 61 seconds");
for ( 1 .. 61 ) {
print "\b\b$_";
sleep 1;
}
INFO("LOG 2: Done");
1;
__DATA__
# Layout for logging
# [Date] [Priority] [File::Caller] [Line Number] > Message \n
layout_pattern = [%d{yyyy-MM-ddTHH:mm:ss}] [%p] [%F{1}::%M] [%L] > %m %n
##
## LOGGERS
##
log4perl.logger = INFO, LogRotate
# Logging to file
# - Rotates every minute
# - Last 8 minutes kept
# (Only INFO level priority and higher messages are logged to file)
log4perl.appender.LogRotate.layout.ConversionPattern = ${layout_pattern}
log4perl.appender.LogRotate = Log::Dispatch::FileRotate
log4perl.appender.LogRotate.filename = Timed_Rotate.log
log4perl.appender.LogRotate.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LogRotate.max = 8
log4perl.appender.LogRotate.mode = append
log4perl.appender.LogRotate.DatePattern = yyyy-MM-dd-HH-MM
####
#!/usr/bin/perl
use 5.018;
use Log::Dispatch::FileRotate;
use Log::Log4perl qw/:easy :no_extra_logdie_message/;
use strict;
use warnings;
local $/ = undef;
Log::Log4perl::init(\);
local $| = 1;
INFO("LOG 1: Sleep for 61 seconds");
1;
__DATA__
# Layout for logging
# [Date] [Priority] [File::Caller] [Line Number] > Message \n
layout_pattern = [%d{yyyy-MM-ddTHH:mm:ss}] [%p] [%F{1}::%M] [%L] > %m %n
##
## LOGGERS
##
log4perl.logger = INFO, LogRotate
# Logging to file
# - Rotates every minute
# - Last 8 minutes kept
# (Only INFO level priority and higher messages are logged to file)
log4perl.appender.LogRotate.layout.ConversionPattern = ${layout_pattern}
log4perl.appender.LogRotate = Log::Dispatch::FileRotate
log4perl.appender.LogRotate.filename = Timed_Rotate.log
log4perl.appender.LogRotate.layout = Log::Log4perl::Layout::PatternLayout
log4perl.appender.LogRotate.max = 8
log4perl.appender.LogRotate.mode = append
# 'log4j' style doesn't work as expected
log4perl.appender.LogRotate.DatePattern = yyyy-MM-dd-HH-MM
# ... neither does 'Date::Manip' style
# log4perl.appender.LogRotate.DatePattern = 0:0:0:0:0:1:0