log4perl 简单使用方法

log4perl 简单使用方法

今天看了下文档,用log4perl来记录Log,大概基本的使用方法可以是这样的:

use Log::Log4perl::Level;
use Log::Log4perl qw(:easy);


Log::Log4perl->init("./log4perl.conf"); #log4perl配制文件


our $log = Log::Log4perl::get_logger("Foo::Bar");
our $layout = Log::Log4perl::Layout::PatternLayout->new("[%r] %F %L %m%n");

$log->info("你好,我来啦");




log4perl.conf :
log4perl.category.Foo.Bar          = DEBUG, Logfile, Screen  #Logfile表示输出文件  #Screen屏幕输出



log4perl.appender.Logfile          = Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename = log/test.log
log4perl.appender.Logfile.layout   = Log::Log4perl::Layout::PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern =%d{y/M/d H:m:s:S} [%r] %F %L %m%n
#%d时间{后是时间格式}

#%F 是产立生日志的文件名  

#%L 是行号


log4perl.appender.Screen         = Log::Log4perl::Appender::Screen
log4perl.appender.Screen.stderr  = 0
log4perl.appender.Screen.layout = Log::Log4perl::Layout::SimpleLayout



有时间再看看Layout和Level是咱用滴。

再说点,调试的时候可以用debug模式。

在配制文件里打开DEBUG
log4perl.category.Foo.Bar          = DEBUG, Logfile, Screen  #Logfile表示输出文件  #Screen屏幕输出


$log->info("你好,我来啦");
$log->debug("你好,我来调试");


当配制 文件里没有DEBUG的时候不输出DEBUG信息。