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,$..' &