Chinaunix首页 | 论坛 | 博客
  • 博客访问: 336997
  • 博文数量: 63
  • 博客积分: 1456
  • 博客等级: 上尉
  • 技术积分: 774
  • 用 户 组: 普通用户
  • 注册时间: 2009-04-11 12:13
个人简介

梦想的实现需要野心!

文章存档

2015年(3)

2014年(19)

2013年(8)

2011年(5)

2010年(11)

2009年(17)

我的朋友

分类:

2010-05-09 12:29:11

目的:对当前目录或指定目录下以.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() {
  $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;
 
 
 
阅读(616) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~