遍历文件，寻找错误信息

最新推荐文章于 2025-12-02 09:06:32 发布

原创最新推荐文章于 2025-12-02 09:06:32 发布 · 344 阅读

0 ·

CC 4.0 BY-SA版权

本文介绍了一个Perl脚本，用于解析当前目录或指定目录下的.log文件，查找包含特定错误信息的行，并记录这些错误的位置。

目的：对当前目录或指定目录下以.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学习网站，资料推荐，学习经验共享

相关热门文章