2010年3月4日木曜日

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

0 コメント: