Perl 在指定文件夹中的文件中查找包含指定字符的行

本文转载于 http://blog.sina.com.cn/s/blog_55cbb3d10100pfjl.html

 

字符串提取是个麻烦有需要耐心的工作，如果针对一个文件，可以利用正则表达式提取某些字符串，如果你有成百上千个文件，则需考虑循环或文件夹操作，下面的代码介绍了如何提取一个文件夹（含子目录）中较多文件里的某一固定字符串。

 

$searchdir="c:/folder"; #指定根文件夹路径
chomp $searchdir;
$searchstr="N2O_emission"; #指定欲提取的字符串
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);