亚洲在av人极品无码网站

http://search.cpan.org/~mschilli/Log-Log4perl/

首先安裝log4perl

perl -MCPAN -e "install Log::Log4perl"

下面是例子

use strict;

use warnings;

use Cwd;

my $curdir = getcwd;

use Log::Log4perl;

#按照日期來(lái)分割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 配置也可以寫(xiě)在文件里面:

log.conf文件

log4perl.rootLogger = DEBUG, Logfile

log4perl.appender.Logfile = Log::Log4perl::Appender::File
log4perl.appender.Logfile.filename = ./test.log
log4perl.appender.Logfile.autoflush = 1
log4perl.appender.Logfile.mode = append
log4perl.appender.Logfile.layout = PatternLayout
log4perl.appender.Logfile.layout.ConversionPattern = %d{yyyy-MM-dd HH:mm:ss,SSS} %F(%L) %-5p - %m%n

use strict;
use warnings;
use Log::Log4perl;

#初始化 log4perl 配制文件
Log::Log4perl::init("log.conf");
my $log = Log::Log4perl::get_logger();
$log->info("信息  ");

本站僅提供存儲服務(wù)，所有內容均由用戶(hù)發(fā)布，如發(fā)現有害或侵權內容，請點(diǎn)擊舉報。

欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久