perlのログ処理

perlログ処理サンプル

use Log::Handler;
my $log = Log::Handler->new();

$log->add(
    file => {
        timeformat => "%Y/%m/%d %H:%M:%S",
        filename => "app.log",
        mode => 'append',
        maxlevel => '7',
        minlevel => '0',
        message_layout => "%T [%L] (%C): %m"
    }
);

# メソッド => debug/info/notice/warning/error/critical/alert/emergency
$log->info( "msg => \n" );
$log->debug( "msg => \n" );