Log::MinimalでPerlのログ出力してみた

12690 ワード
Perl log Perl テキストリンク

インストール方法


>$ cpanm install Log::Minimal

ログレベル

レベル 対象者 内容
debug 開発者 開発中のデバッグ用出力。商用環境では出力しない。
info 開発者 開発者が運用中に調査等で参照する情報。不具合を見つけるための手がかりに使用。
warn 運用者/開発者 運用中に発生したシステムに関する問題。直ちには問題がない状態。
critical 運用者/開発者 サービスが継続できない障害。原因究明の情報

表示例

log.test.pl
use Log::Minimal;

# デバッグを出力する場合：1
$ENV{LM_DEBUG} = 1;

debugf( 'デバッグレベル出力される.' ); # $ENV{LM_DEBUG} がtrueの場合出力される
infof( 'インフォレベルが出力される.' );
warnf( 'ワーニングレベルが出力される.' );
critf( 'クリティカルレベルが出力される.' );

# フルスタックトレースをする場合
debugff( 'デバッグレベル出力される.' ); # $ENV{LM_DEBUG} がtrueの場合出力される
infoff( 'インフォレベルが出力される.' );
warnff( 'ワーニングレベルが出力される.' );
critff( 'クリティカルレベルが出力される.' ); 

# パラメータを設定する場合
debugf( 'This is %s', 'debug log.' ); # $ENV{LM_DEBUG} がtrueの場合出力される
infof( 'This is %s', 'information log.' );
warnf( 'This is %s', 'warning log.' );
critf( 'This is %s', 'critical log. ' );

実行結果


2015-04-24T00:11:32 [DEBUG] デバッグレベル出力される. at log.test.pl line 6
2015-04-24T00:11:32 [INFO] インフォレベルが出力される. at log.test.pl line 7
2015-04-24T00:11:32 [WARN] ワーニングレベルが出力される. at log.test.pl line 8
2015-04-24T00:11:32 [CRITICAL] クリティカルレベルが出力される. at log.test.pl line 9
2015-04-24T00:11:32 [DEBUG] デバッグレベル出力される. at log.test.pl line 12
2015-04-24T00:11:32 [INFO] インフォレベルが出力される. at log.test.pl line 13
2015-04-24T00:11:32 [WARN] ワーニングレベルが出力される. at log.test.pl line 14
2015-04-24T00:11:32 [CRITICAL] クリティカルレベルが出力される. at log.test.pl line 15
2015-04-24T00:11:32 [DEBUG] This is debug log. at log.test.pl line 18
2015-04-24T00:11:32 [INFO] This is information log. at log.test.pl line 19
2015-04-24T00:11:32 [WARN] This is warning log. at log.test.pl line 20
2015-04-24T00:11:32 [CRITICAL] This is critical log.   at log.test.pl line 21

シリアライズ

log.test.pl
use Log::Minimal;

my $info = {
    id   => 100,
    name => 'user_name',
    mail => 'mail_address'
};
local $Log::Minimal::AUTODUMP = 1;
infof( 'info:%s', $info );

実行結果


2015-04-21T23:59:59 [INFO] info:{'id' => 100,'mail' => 'mail_address','name' => 'user_name'} at log.test.pl line 9

ログフォーマットの変更

log.formatter.pm
package Log::Minimal;

$Log::Minimal::PRINT = sub {
    my ( $time, $type, $message, $trace, $raw_message ) = @_;
    print "$time ", ( $FORMAT->{$type}||"[$type] - " ), " $message at $trace\n";
};

1;
log.test.pl
use Log::Minimal;

require './log.formatter.pm';

infof( "フォーマット変更したよ" );

};

実行結果


2015-04-24T00:06:01 [INFO] -  フォーマット変更したよ at test.log2.pl line 5

ログ出力先の変更

output.pm
package Log::Minimal;

my $fh;

open ( $fh, '>>', 'application.log' );
local $SIG{ HUP } = sub {
    undef $fh;
    open ( $fh, '>>', 'application.log' );
};

$Log::Minimal::PRINT = sub {
    my ( $time, $type, $message, $trace, $raw_message ) = @_;
    print $fh "$time ", ( $FORMAT->{$type}||"[$type] - " ), " $message at $trace\n";
};

1;
test.pl
use Log::Minimal;

require './output.pm';

infof("出力先変更");
application.log
2015-04-24T00:30:47 [INFO] -  出力先変更 at test.pl line 5
設計モード(二)一一単例モード
画像のサンプリングと量子化と階調ヒストグラム