perl 解析日志

use List::Util qw/max min/;

use lib "$ENV{HOME}/aoms_agent/lib";

use JSON qw/encode_json decode_json/;

use Encode;

use Time::Local;

$ENV{'LANG'} = 'zh_CN.GBK';

if ( $#ARGV < 1 ){

print "Usage: perl $0 log_path syseq :!\n";

exit(-1);

};

$log_path=$ARGV[0];

$sysseq=$ARGV[1];

$file=`grep -l "SysSeq:$sysseq,BusSeq:" $log_path/esb2ibps*` ;

chomp $file;

@arr_start=();

@arr_msg=();

@arr_end=();

open $fp ,'<',$file or die $!;

while (<$fp>){

my $line =$_;

if ($line =~/开始分级日志/){ push (@arr_start,$..' ')};

if ($line =~/SysSeq:$sysseq,BusSeq:.*/){push (@arr_msg,$..' ' )};

if ($line =~/提交缓冲日志/){ push (@arr_end,$..' ' )};

};

close $fp;