25122005 perl
かま田さんに教えてもらったDebug::EchoMessageですが、Class::DBIみたいに環境変数でログのレベルを変えたいなぁということで、こんな感じで使っています。
#!/usr/bin/perl
use strict;
use warnings;
use Debug::EchoMessage;
my $self = bless {}, "main";
my $debug_level = $ENV{"Debug_Echo_Level"} || 0;
$self->debug($debug_level);
# The level 3 message will not be displayed
$self->echoMSG("This is level 1 message.", 1);
$self->echoMSG("This is level 2 message.", 2);
$self->echoMSG("This is level 3 message.", 3);
環境変数で設定しておいても、実行する前に変数入れてもOKなかんじ
$ export Debug_Echo_Level=1
$ ./debugtest.pl
This is level 1 message.
$ Debug_Echo_Level=2 ./debugtest.pl
This is level 1 message.
This is level 2 message.
$ Debug_Echo_Level=3 ./debugtest.pl
This is level 1 message.
This is level 2 message.
This is level 3 message.
これで、ファイルをいじらずにデバッグレベルを変えられるし、はかどるはずだ。で、余力はbloglinesのチェックにまわすと。
