论坛 › Perl › Average Time Perl

111 发表于 2015-12-27 15:59:42

Average Time Perl

　　#!/usr/perl/bin/perl
　　open(FHD, "C:\\wflogs\\WorkflowServerLog.txt") || die("can't open the file\n");
　　open(OFH, ">c:\\wflogs\\AverageTimeLog.txt") || die("cna't open the file\n");
　　my %hbegincount;
my %hendcount;
　　my %hbegintime;
my %hendtime;
　　my $lineCount = 0;
　　
while($line = <FHD>)
{
$lineCount++;
if($lineCount < 1000000)
{
chomp($line);
my ($r1,$r2,$r3,$r4) =split(/\|/, $line);
$r1=~s/^\s+|\s+$//g;
$r2=~s/^\s+|\s+$//g;
$r3=~s/^\s+|\s+$//g;
$r4=~s/^\s+|\s+$//g;
　　# print "$r1,$r2,$r3,$r4 \n";
　　if($r4=~/begin$/i)
{
my ($r41,$r42) =split(/\s+/, $r4);
#print "begin :$r41, $r42 \n";
$hbegincount{$r41}++;
my $cltime = &CalTime($r1);
$hbegintime{$r41} += $cltime;
   
}
elsif($r4=~/end$/i)
{
my ($r41,$r42) =split(/\s+/, $r4);

if($hbegincount{$r41} > $hendcount{$r41})
{
   $hendcount{$r41}++;
   my $cltime = &CalTime($r1);
   $hendtime{$r41} += $cltime;
}
}
else
{
next;
}
}
}
close(FHD);
　　
while( my ($key, $value) = each %hbegintime )
{
#print "key : $key, $value \n";
#print"count : $hbegincount{$key} == $hendcount{$key}\n";
if($hbegincount{$key} == $hendcount{$key})
{
my $totaltime = $hendtime{$key} - $value;
my $var = $totaltime / $hbegincount{$key};
print OFH "average : $key,$var, $totaltime, $hbegincount{$key} \n";
       #print "average : $key,$var, $totaltime, $hbegincount{$key} \n";
}
else
{
my $diffcount = $hbegincount{$key} - $hendcount{$key};
print OFH "diff : $key,$diffcount\n";
       #print "diff : $key,$diffcount\n";
}
}
close(OFH);
　　
sub CalTime()
{
my ($t1) = @_;
my ($t11,$t12,$t13) =split(/\:/, $t1);
my ($t131,$t132) =split(/\./, $t13);
my $totaltime;
      $totaltime = $t11 * 3600 * 1000 + $t12 * 60 * 1000 + $t131 * 1000 + $t132;
return $totaltime;
}

查看完整版本: Average Time Perl