#!perl
use Getopt::Std;
my %opt;
getopts('iVcle:',\%opt);
my $pat = $opt{'e'} || shift;
# warn "Matching /$pat/\n";
my @args = splice(@ARGV,0);
foreach my $arg (@args)
{
push(@ARGV,glob($arg));
}
my $count = 0;
while (<>)
{
if (($opt{i})? /$pat/io : /$pat/o)
{
$count++;
print "$ARGV:$.:$_" unless ($opt{'c'} || $opt{'l'});
}
if (eof)
{
printf("%5d $ARGV\n",$count) if ($opt{'V'} || $opt{'c'} && $count);
print "$ARGV\n" if $opt{'l'};
$count = 0;
$. = 0;
}
}
__END__