アトトックラボ

2011年4月04日

tail コマンドで Apache のエラーログをカラー化する Perl スクリプト

Posted by Nobuyuki Sato

こちらの記事 で Apache のアクセスログをカラー化する Ruby スクリプトがあったのを参考に、Ruby はまだ苦手なので Perl で Apache のエラーログをカラー化するスクリプトを書いてみました。

#! /usr/bin/perl -w
use strict;

while ($_ = «STDIN») {
	$_ =~ s/\[(.*?)\] (\[error\])(.*?) at (.*?) (.*?)/\e[35m[$1]\e[0m \e[1;31m\[ERROR\]\e[0m$3 \e[1;31m$4\e[0m $5/;
	print $_;
}

で、

$ tail -f /var/log/apache2/error_log | ./colorize.pl

としてやればOK。

ターミナルで専用にタブを開いておくか、GNU Screen なんかを使っておけば便利ですね。