just's Blog

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