ブログまる: Perlのログモジュールについて

最近Perlで簡単なバッチプログラムを書いたのですが、こういう簡単なプログラムを書く時にいつもログ出力で悩んでました DEBUGログはしばらくしたら止めてINFO以上のものだけ出力するようにとか、エラーレベルがERROR以上なら警告メールを送ったり、手動で実行するときはINFO以上を標準出力に出力して、警告メールはOFFにしたりとか、CPANのモジュールを使うとやたら面倒だったり、なんかシックリこなかったり、いろんなモジュールを追加しなくちゃいけなかったり、結局その時専用のログ関数を作ってました。 今回はちょっと考え込んで見たところ、いいアイデアが思い浮かび、自分の中ではかなりヒットだったので、そのログモジュールを使ったサンプルプログラムを紹介します どうです？美しくないですか？ ex1.pl use Log; my $log = Log->new({ Stdout => {