#!/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;
}
|