ログのフィルタリング

簡単だけど、こんな感じでスクリプトを作っておくと便利。

>|perl|
#!/usr/bin/perl
use strict;
use warnings;
use utf8;
use constant C_ERROR => "\x1b[31;3;31m";
use constant C_DEBUG => "\x1b[32;3;32m";
use constant C_RET => "\x1b[38;;38m";

while ( <> ) {
$_ =~ s/(error)/C_ERROR().$1.C_RET()/ige;
$_ =~ s/(debug)/C_DEBUG().$1.C_RET()/ige;
print $_;
}
||<

"error"や"debug"の文字が出てくるとそこだけ着色してくれる。

プチ便利。