home *** CD-ROM | disk | FTP | other *** search
- print "Word to check:";
- $word = <STDIN>;chomp $word;
- print "Checking files in CSD for \"$word\".\n";
- foreach $oneof ( sort <*> ) {
- print "\nOpening $oneof\n";
- open (FILE,$oneof) || warn("Can't open $oneof\n");
- while (<FILE>) {
- chop;
- if (/$word/) { print "\n\"$oneof\", line $.: $_"; };
- }
- }
-
-