インストール方法
>$ 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