一个能显示不同颜色的perl脚本

eagerlinuxer

    我们在写shell脚本中，经常希望脚本的输出是跟据内容的不同而显示不同的颜色。下面的一个简单的perl脚本就能很轻松的实现这个功能：
[joybaby@DISK joybaby]$ cat /bin/rcg
#!/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: $0 [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
}

使用方法：
1、把这个脚本加个执行权限，放到/bin/目录下
2、例子：
echo aaabbbccc | rgc aa GREEN bb BLUE cc RED
显示效果：
aaabbbccc
其中rcg后面表示为：aa 显示绿色，bb显示蓝色，cc显示红色

echo 'IP ADDR 192.168.13.152' | rgc '\d+\.\d+\.\d+\.\d+' GREEN
显示效果如下：
IP ADDR 192.168.13.152
其中 rgc 后面'\d+\.\d+\.\d+\.\d+' 表示的是一个正则表达式。
还是一个不错的东东，大家试试。


本文来自ChinaUnix博客，如果查看原文请点：http://blog.chinaunix.net/u/149/showart_76064.html