#!/usr/cs/bin/perl

if ($#ARGV < 0)
{
  die "Give a regexp to look for, and a (quoted) optional file specification.\n";
}

$regexp = $ARGV[0];

if ($#ARGV == 1)
{
  $file = $ARGV[1];
  @files = sort (`find -name "$file"`);
}
else
{
  @files = sort (`find`);
}

foreach $file (@files)
{
  chomp $file;

  if (!(-d $file))
  {
    $resultline = `grep "$regexp" $file`;

    if ($resultline ne "")
    {
      if (-B $file)
      {
        $resultline = "(Binary)\n";
      }
#      elsif (length($resultline) > 70)
#      {
#        $resultline = substr($resultline,0,70);
#        $resultline = "$resultline\n";
#      }

      print "$file:$resultline";
    }
  }
}