Log4perl
参考
实例

Log4perl

参考

实例

倒腾一下下面的例子，我想大慨就明白了：

#!/usr/bin/env perl

use strict;
use warnings;

use Cwd;
my $curdir = getcwd;

use Log::Log4perl;

my $conf = qq{
    log4perl.category.Foo.Bar = INFO,Logfile

    log4perl.appender.Logfile = Log::Log4perl::Appender::File
    log4perl.appender.Logfile.filename = $curdir/test2.log
    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
};

Log::Log4perl::init (\$conf);


my $log = Log::Log4perl::get_logger("Foo::Bar");

$log->trace("trace ...");
$log->debug("debug ...");
$log->info("Important Info!");
$log->warn("warn ...");
$log->error("error ...");
$log->fatal("fatal ...");