遍历文件，寻找错误信息

最新推荐文章于 2024-04-18 14:22:57 发布

doomvsjing

最新推荐文章于 2024-04-18 14:22:57 发布

阅读量315

点赞数

本文链接：https://blog.csdn.net/doomvsjing/article/details/50793671

版权

目的：对当前目录或指定目录下以.log为后缀的文件进行解析，找出符合匹配格式的错误信息的位置。

说明：仅仅是当前目录或指定目录下的文件！暂未实现，遍历目录。

代码：（文件名：xxx.pl）

use strict;
my ($eachfile,$line,$output);
$eachfile;
$line = 0;
$output = ">result.txt";
open OUT,$output or die $!;
my @myfiles = <*.log>;
for $eachfile (@myfiles) {
open FH,$eachfile or die $!;
$line = 0;
#print "\n$eachfile -> start \n";
while(<FH>) {
  $line++;
  #print $_,"\n";
  if(($_ =~ /warnings*,\s([0-9]*)\serrors,\s([0-9]*)\sserious errors/))
  {
   #print $1,"\n";
   if($1 > 0 || $2 > 0)
   {
    print "result in the file: $eachfile line: $line \n";
    print OUT "result in the file: $eachfile line: $line \n";
   }
  }
}
#print "\n$eachfile -> end \n";
close FH;
}
print "finish search ! \n";
print OUT "finish search ! \n";
close OUT;

阅读(201) | 评论(0) | 转发(0) |

上一篇：MTK 09B 新特性学习

下一篇：Android学习网站，资料推荐，学习经验共享