带颜色的apache error log过滤器 --- perl version

做LAMP开发的人在开发过程中经常需要查看apache的error log，本过滤器将error log中的Notice、Warning、Fatal error和MySQL Error用不同的颜色加以区别，以引起开发者的注意。

用法：tail /path/to/apache/error | ct

ct是perl脚本：

 

#!/usr/bin/perl
while(<>) {
        chomp;
        if(m/PHP Notice/) {
                print "\033[32m",$_,"\033[0m\n";
        }
        elsif(m/PHP Warning/) {
                print "\033[33m",$_,"\033[0m\n";
        }
        elsif(m/PHP Fatal error/) {
                print "\033[31m",$_,"\033[0m\n";
        }
        elsif(m/MySQL Error/) {
                print "\033[35m",$_,"\033[0m\n";
        }
        else {
                print $_,"\n";
        }
}