在指定文件夹中的文件中查找包含指定字符的行(这个小东西不错[Perl])
2005-08-09 21:42
573 查看
#!/usr/bin/perl -w
printf"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);
printf"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);
相关文章推荐
- Perl 在指定文件夹中的文件中查找包含指定字符的行
- java 遍历指定目录下的文件夹并查找包含指定关键字的文件
- Perl初级教程 (5) 遍历文件夹内指定扩展名文件,查找匹配关键字的输出。
- Perl初级教程 (5) 遍历文件夹内指定扩展名文件,查找匹配关键字的输出。
- linux shell 删除指定文件夹下面 名称不包含指定字符的文件
- Linux命令行下如何查找列出/usr/local这个目录下所有包含字符mrtg的文件
- 【Linux】Linux删除指定文件夹下面 名称不包含指定字符的文件
- python 查找文件夹下的指定部分路径下的所有文件内匹配的字符 包括子文件夹下的文件
- Java 查找指定文件夹下的所有文件中包含有中文的文件,并抠出中文
- Java多线程查找指定文件夹下包含指定关键字的文件数量(未使用线程池版)
- perl 循环删除指定文件夹下所有满足条件的文件,不包含文件夹
- linux 查找包含指定字符的文件列表 命令
- 查找文件夹下包含指定字符串的文件名字
- l查找inux下某个文件夹下包含指定字段的文件
- Java多线程查找指定文件夹下包含指定关键字的文件数量(线程池版)
- grep在指定类型的文件中查找字符
- Sublime Text 查找时排除指定的文件夹或文件
- 使用BlockingQueue查找某个文件夹下的所有文本文件中是否包含文字
- linux在文件夹中查找文件包含的字符串,并进行相应的替换
- 结合find和cp批量查找文件并复制到指定文件夹中