Small Perl for forget

ysoren

#!/usr/perl/bin/perl
open(FHD, "c:\\ccytest\\perftest.txt") || die("cna't open the file\n");
open(OFH, ">c:\\ccytest\\result.txt") || die("cna't open the file\n");
my $lineCount = 0;
my %hash;
my $chunkcount = 0;
my $ir1;
my $ir2;
while($line = <FHD>)
{
$lineCount++;
if($lineCount < 1000000)
{
chomp($line);
my ($r1,$r2,$r3) =  split(/\|/, $line);
$r1=~s/^\s+|\s+$//g;
$r3=~s/^\s+|\s+$//g;

if($r3=~/^begin/i)
{
#print "$lineCount $line \n";
#print "$r1   $r3 \n";
($ir1,$ir2) =  split(/\s+/, $r3);
#print "$ir1 , $ir2 \n";
$ir2=~s/^\s+|\s+$//g;
$hash{$ir2}= $r1;
}
elsif($r3=~/^end/i)
{
#print "$lineCount $line \n";
#print "$r1   $r3 $r3 \n";
($ir1,$ir2) =  split(/\s+/, $r3);
$ir2=~s/^\s+|\s+$//g;
#print "$ir1 $ir2 \n";
my $time = &CalTime($hash{$ir2}, $r1);
if($ir2 =~ /^ReadNextChunk$/)
{
$chunkcount++;
#print  OFH "$chunkcount";
}
print OFH "$time";
#delete $hash{$r1};
if($ir2 =~ /^DeliverImportedRows$/)
{ print  OFH "\n";}

}
else
{
#print "$r3\n";
#last;
next;
}
}
}
close(FHD);
close(OFH);
open(FHD, "c:\\ccytest\\result.txt") || die("cna't open the file\n");
my @carr;
my $countl= 0;
while($line = <FHD>)
{
chomp($line);
@arr =  split(/\s+/, $line);
#print "$arr[0], $arr[1]\n";
$countl++;
if($countl < 61)
{
my $length = @arr;
for(my $i =0; $i<$length; $i++ )
{
$carr[$i] += $arr[$i];
}
}
}
open(OFH, ">>c:\\ccytest\\result.txt") || die("cna't open the file\n");
print OFH "\n";
foreach $num (@carr)
{
print OFH "$num";
}
print OFH "\n";
my $tt= &CalTime("06:30:00.785", "06:38:17.066");
print "$tt\n";
close(FHD);

sub CalTime()
{
my ($t1,$t2) = @_;
my ($t11,$t12,$t13) =  split(/\:/, $t1);
my ($t131,$t132) =  split(/\./, $t13);

my ($t21,$t22,$t23) =  split(/\:/, $t2);
my ($t231,$t232) =  split(/\./, $t23);
my $totaltime;
my $hour;
my $min;
my $second;
my $msecond;
if($t21 - $t11 < 0)
{
$hour = $t21+24 - $t11;
}
else
{
$hour = $t21 - $t11;
}
$min = $t22 - $t12;
$second = $t231 - $t131;
$msecond = $t232 - $t132;
$totaltime =  $hour * 3600 * 1000 + $min * 60 * 1000 + $second * 1000 + $msecond;
#print "$t11,$t12,$t13 :: $t21,$t22,$t23\n";
return $totaltime;
}

　　just for  record, because some command forget very quickly