在指定文件夹中的文件中查找包含指定字符的行(这个小东西不错[Perl])
#!/usr/bin/perl -wprintf"write the path you want to search files:";
$searchdir=<STDIN>;
chomp $searchdir;
printf "Input search string:";
$searchstr=<STDIN>;
chomp $searchstr;
opendir(DIRHANDLE,$searchdir) || die "Cann't open $searchdir !";
while($file=readdir DIRHANDLE) {
if (-d "$searchdir/$file") {
printf "$searchdir/$file is a directory!\n";
} else {
open(FileHandle, "$searchdir/$file") || die "cann't open $searchdir/$file !\n";
$lines=1;
while (defined($line=<FileHandle>)) {
$back=index($line,$searchstr);
if ( $back != -1 ) {
print"$file:$lines:$line";
}
$lines=$lines+1;
}
}
close(FileHandle);
}
closedir(DIRHANDLE);
页:
[1]