log4perl使用-按照日期划分log文件

just posted @ 2011年4月02日 13:09 in 脚本 with tags log4perl , 2340 阅读

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");

  • 无匹配
  • 无匹配
vex 3 说:
2018年12月22日 15:53

Thank you for providing this interesting and very interesting topic information. I will regularly update your next articles.


登录 *


loading captcha image...
(输入验证码)
or Ctrl+Enter