log4perl使用-按照日期划分log文件
http://search.cpan.org/~mschilli/Log-Log4perl/
首先 安装log4perl
perl -MCPAN -e "install Log::Log4perl"
windows中的ActivePerl 可以用ppm来安装
下面是例子
use strict; use warnings; use Cwd; my $curdir = getcwd; use Log::Log4perl; #按照日期来分割log文件 use POSIX qw(strftime); my $log_file = "subject".strftime("%Y-%m-%d", localtime(time)).".log"; my $conf = qq{ log4perl.category.Foo.Bar = INFO,Logfile log4perl.appender.Logfile = Log::Log4perl::Appender::File log4perl.appender.Logfile.filename = $curdir/$log_file log4perl.appender.Logfile.layout = Log::Log4perl::Layout::PatternLayout log4perl.appender.Logfile.layout.ConversionPattern = %d{20y-M-d H:m:s:S} %F %L - %m%n }; #初始化 log4perl 配制文件 Log::Log4perl::init (\$conf); my $log = Log::Log4perl::get_logger("Foo::Bar"); $log->info("信息 ");
-------------
另外 $conf 配置也可以写在文件里面:
Log::Log4perl::init("log3perl.conf");
2018年12月22日 15:53
Thank you for providing this interesting and very interesting topic information. I will regularly update your next articles.