#!/usr/bin/perl -w
# By Greg Flanders gflan@NO.avalon.SPAM.net.THANKS
# 
# Opens each file from currenct directory and searches
# for the pattern given. Jumps down directories to search
# recursively.

use strict;
use File::Find;
use Cwd;

my $directory = getcwd();
my$searchstring = $ARGV[0];
my $ext = $ARGV[1];

print "$searchstring\n";
die "Usage : ggrep searchstring extension\n" if ($searchstring eq "");

find (\&process_file, "$directory");

sub process_file {

    return if -d;

    if ($_ =~ /$ext/i) {

        open (INPUT, "< $_");
        foreach (<INPUT>) {
            if(/$searchstring/i) {
                $_ = substr($_, 0, 60);
                s/^\s*//;
                print "$File::Find::name\:$.\:\t$_\n";
            }
        }
        close INPUT;
    }
}