use warnings;

#read the file (PLEASE PROVIDE INPUT FILE PATH)
open(hanr,"D:/Process_debug.txt")or die"error $!\n";
#digesting the lines
@lines = <hanr>;

open (hanw,">D:/process_time.txt") or die("error:cannot create $! \n");

for $value2 (@lines) {
my @lines2 = split(/,/,$value2);

my $datetime = $lines2[0];
my $ms = $lines2[1];
my $inid = $lines2[2];
my $message = $lines2[3];
sub gettime($);


if($message eq "TP Service Request"){
		
		$date = substr $datetime,11;
		@timearray = split (/:/,$date);
		$hours = $timearray[0];
		$minutes = $timearray[1];
		$seconds = $timearray[2];
		$hours = $hours*60*60*1000;
		$minutes = $minutes*60*1000;
		$seconds = $seconds*1000;
		$totaltimeinms = $hours+$minutes+$seconds+$ms;
		$time1 = $totaltimeinms;
		}
if($message eq "P5 Move request" ){
              
		$date = substr $datetime,11;
		@timearray = split (/:/,$date);
		$hours = $timearray[0];
		$minutes = $timearray[1];
		$seconds = $timearray[2];
		$hours = $hours*60*60*1000;
		$minutes = $minutes*60*1000;
		$seconds = $seconds*1000;
		$totaltimeinms2 = $hours+$minutes+$seconds+$ms;
		$time2 = $totaltimeinms2;
		}

print timefile "DATA : $time1 && $time2\n";
if ($time1 && $time2){
$finaltime = $time2-$time1;
print timefile "$inid took : $finaltime \n";
last;
}

}
close hanw;
close hanr;