Log::Dispatchでログ出力(Perl)

スズキです。

ログ出力モジュールをCPANで探してみたら、
非常に多くのモジュールが見つかったのですが、
Log::Dispatchを使ってみることにしました。

まずは、yumでインストールです。

# yum install perl-Log-Dispatch

そして、下記のようなコードでログを出力します。

--------【Perl】--------
use Log::Dispatch;
...
my $log = Log::Dispatch->new(outputs => [[
　　"Screen",
　　min_level => 'debug',
　　stderr => 1,
　　newline => 1
]]);
...
$log->debug("Logging!");
--------

上記は、画面(STDERR)にログを出力するようにしています。
("stderr => 0"にするとSTDOUTに出力します)
"newline => 1"はログ出力($log->debug)ごとの改行です。

もう少し、Perlモードだなー...

--------
http://www.suz-lab.com