在终端上生成彩色的日志分析

脚本如下:

#!/usr/bin/perl -w
#简单的过滤器，产生彩色的终端输出
use strict;
use Term::ANSIColor qw(:constants);

my %target=();

while(my $arg=shift){
        my $clr=shift;

        if (($arg =~ /^-/) | ( !$clr)){
                print "Useage: rcg [regex] [color] [regex] [color] ...\n";
                exit;
        }
        $target{$arg}=eval($clr);
}

my $rst=RESET;
while(<>){
        foreach my $x (keys %target ){
                $_ =~ s/($x)/$target{$x}$1$rst/g;
        }
        print;
}
 

传参的时候颜色要大写

详细内容见:<LINUX SERVER HACKS> 75节