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);