blob: d4517c50f5df1beaa407f741f33fde4acd50d40f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
#!/usr/bin/perl
print "(sed";
foreach $arg (@ARGV)
{
print " -e 's/ $arg / \e[1m$arg\e[21m /g'";
print " -e 's/ $arg)/ \e[1m$arg\e[21m)/g'";
print " -e 's/($arg /(\e[1m$arg\e[21m /g'";
print " -e 's/($arg)/(\e[1m$arg\e[21m)/g'";
print " -e 's/ $arg\$/ \e[1m$arg\e[21m/g'";
print " -e 's/^$arg /\e[1m$arg\e[21m /g'";
print " -e 's/^$arg\$/\e[1m$arg\e[21m/g'";
}
print " | sed";
foreach $arg (@ARGV)
{
print " -e 's/ $arg)/ \e[1m$arg\e[21m)/g'";
print " -e 's/ $arg\$/ \e[1m$arg\e[21m/g'"
}
print ")";
|
