Your skill will accomplishwhat the force of many cannot PerlMonks

 on Jun 14, 2004 at 10:24 UTC Need Help??

```#!/usr/bin/perl -s
print "usage: highlights where a regexp matches in the input text
perl -s \$0 [-c] [-g] [-i] [-s] [-m] [-o] 'regexp' [file.. ]
" and exit(1) unless (@ARGV);
\$re = shift @ARGV;
\$x .= "c" if \$c;
\$x .= "g" if \$g;
\$x .= "i" if \$i;
\$x .= "s" if \$s;
\$x .= "m" if \$m;
\$x .= "o" if \$o;
print "\/\$re\/\$x\n";
while (<>) {
eval("s/\$re/\e[7m\\$&\e[m/\$x;");
print;
}

#!/usr/bin/perl -s
print "usage: highlights where s/// applied to the input text
perl -s \$0 [-e] [-g] [-i] [-s] [-m] [-o] 'regexp' 'replacement' [file.
+. ]
" and exit(1) unless (\$#ARGV > 0);
\$re = shift @ARGV;
\$sub = shift @ARGV;
\$x .= "e" if \$e;
\$x .= "g" if \$g;
\$x .= "i" if \$i;
\$x .= "s" if \$s;
\$x .= "m" if \$m;
\$x .= "o" if \$m;
print "\/\$re\/\$sub\/\$x\n";
while (<>) {
eval("s/\$re/\e[7m\\$sub\e[m/\$x;");
print;
}

Create A New User
Chatterbox?
 [shmem]: this.

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (6)
As of 2017-08-21 18:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
Voting Booth?
Who is your favorite scientist and why?

Results (324 votes). Check out past polls.

Notices?