log4perlメモ

ちょっと忘れかけていたので。

設定ファイル。

$ cat log.conf 
    ############################################################
    # A simple root logger with a Log::Log4perl::Appender::File 
    # file appender in Perl.
    ############################################################
    log4perl.rootLogger=DEBUG, LOGFILE
    
    log4perl.appender.LOGFILE=Log::Log4perl::Appender::File
    log4perl.appender.LOGFILE.filename=myerrs.log
    log4perl.appender.LOGFILE.mode=append
    
    #log4perl.appender.LOGFILE.layout=SimpleLayout
    log4perl.appender.LOGFILE.layout=PatternLayout
   log4perl.appender.LOGFILE.layout.ConversionPattern=[%d] %F %L %c - %m%n

コード

#!/usr/bin/perl
use strict;
use warnings;

use Log::Log4perl;
Log::Log4perl->init("log.conf");

my $log = Log::Log4perl->get_logger();
$log->info('message info');
$log->debug('message debug');
$log->error('message error');
|perl|<

実行結果
>||
$ perl test.pl 
$ cat myerrs.log 
[2013/01/10 13:42:00] test.pl 9 main - message info
[2013/01/10 13:42:00] test.pl 10 main - message debug
[2013/01/10 13:42:00] test.pl 11 main - message error