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信息。