一个按照包含字符串为条件搜索文件的perl程序

#! perl -w

use File::Find;

if ($#ARGV != 0) {
	print "Invalid Usage:n";
	print "Usage: perl browse_string.pl <str>n";
	exit;
}

$searchStr = shift @ARGV;

@files = (); 

@directories_to_search = (".");
find(&;wanted,@directories_to_search);
foreach $file (@files) {
	if (-d $file) {
	}
	else {
		open FILE,"<".$file or die "cannot open file ".$file."n";

		while (<FILE>) {
			if (/$searchStr/) {
				print "$filen";
				last;
			}
		}
		close FILE; 
	}
}

sub wanted {
	@files = (@files,$File::Find::name);
}

用法："perl program.pl <string>"

搜索目录及子目录，如果文件中包含该字符串，则打印该文件。