grep-alias

gistfile1.pl

#!/usr/bin/env perl

use strict;
use warnings;

my $grep_opt  = "--color=auto";

if ($ARGV[0] =~ /^\-/) {
    unless ($ARGV[2]) {
        system("grep $grep_opt $ARGV[0] $ARGV[1] *");
        exit;
    }
} else {
    unless ($ARGV[1]) {
        system("grep $grep_opt $ARGV[0] *");
        exit;
    }
}
system("grep $grep_opt @ARGV");