mygrep

mygrep.pl

#!/usr/bin/perl
# Leave out comments and highlight regex
# Usage: $ mygrep [regex] <file>
#   to compress blank lines: $ mygrep [regex] <file> | perl -00pe0
use strict;
use warnings;
use Term::ANSIColor;

my $regex = shift unless -f $ARGV[0];

while (<>) {
    next if /\s*#/;
    if ( $regex and /$regex/ ) {
        print $`;
        print color 'red';
        print $&;
        print color 'reset';
        print "$'\n";
    } else {
        print "$_";
    }
}