#!perl

print "File Name? (output.log): ";
$filename = <>;
chop $filename;
if ($filename eq ""){
	$filename = "output.log";
}

print "Input Word: ";
$word = <>;
chop $word;

opendir THISDIR, "." or die "serious dainbramage: $!";
@allfiles = grep !/^\.\.?$/, readdir THISDIR;
closedir THISDIR;

open OUTFILE, ">$filename" or die "ERROR($filename): $!";

foreach $file (@allfiles){
	if (-d $file){
		print "$file    ---->    Directory.\n";
	} elsif ($file eq "grepx.pl"){
		print "$file    ---->    This file.\n";
	} elsif ($file eq $filename){
		print "$file    ---->    Output file.\n";
	} else {
		print "$file    ---->    Search....\n";
		open THISFILE, $file or die "No such file: $!";
		@alllines = <THISFILE>;
		close THISFILE;
#		@out = grep /$word/, @alllines;
		$count = 1;
		print OUTFILE "------------\t" . $file . ":\t------------\n";
		foreach $line (@alllines){
			if ($line =~ /$word/s){
				print OUTFILE $count . ": " . $line;
			}
			$count++;
		}
		print OUTFILE "\n";
	}
}

close OUTFILE;

exit;