1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
#!/usr/bin/env perl
#
# Author: Jue Ruan
#
use strict;
my $color = 35;
my %fg_color_map = (black=>30, red=>31, green=>32, yellow=>33, blue=>34, magenta=>35, cyan=>36);
my @pats = ();
foreach my $pat (@ARGV){
if($pat=~/^(\S+)=(\S+?)$/){
if(exists $fg_color_map{$2}){
$color = $fg_color_map{$2};
push(@pats, [$1, $color]);
} else {
print STDERR "[hlcolor] unknown color \"$2\"\n";
push(@pats, [$1, $color]);
}
} else {
push(@pats, [$pat, $color]);
}
}
$| = 1;
while(<STDIN>){
foreach my $pat (@pats){
s/($pat->[0])/\e[1;$pat->[1]m\1\e[0m/g;
}
print;
}
1;
=pod
function highlight() {
declare -A fg_color_map
fg_color_map[black]=30
fg_color_map[red]=31
fg_color_map[green]=32
fg_color_map[yellow]=33
fg_color_map[blue]=34
fg_color_map[magenta]=35
fg_color_map[cyan]=36
fg_c=$(echo -e "\e[1;${fg_color_map[$2]}m")
c_rs=$'\e[0m'
sed -u "s/$1/$fg_c\0$c_rs/g"
}
if [ -z $1 ]; then
echo "Usage: $0 <sed_regex_pattern> <color:black,red,green,yellow,blue,magenta,cyan>"
exit
fi
PAT=$1
COLOR=$2
if [ -z $COLOR ]; then
COLOR=magenta
fi
highlight $PAT $COLOR
=cut
|
