2014-05-29 10:22:21,880,165ab6a8-e736-11e3-8748-8d365226be24,TP Service Request 
2014-05-29 10:22:21,962,165ab6a8-e736-11e3-8748-8d365226be24,ProcessName: TC 
2014-05-29 10:22:21,965,165ab6a8-e736-11e3-8748-8d365226be24,P5 Started 
2014-05-29 10:22:21,965,165ab6a8-e736-11e3-8748-8d365226be24,ProcessName: SL 
2014-05-29 10:22:21,968,165ab6a8-e736-11e3-8748-8d365226be24,Process Message :PreProcess 
2014-05-29 10:22:21,969,165ab6a8-e736-11e3-8748-8d365226be24,Input Message to P5 
2014-05-29 10:22:22,159,165ab6a8-e736-11e3-8748-8d365226be24,ProcessName: PP 
2014-05-29 10:22:22,170,165ab6a8-e736-11e3-8748-8d365226be24,Process Message :ValidationAndCompliance 
2014-05-29 10:22:22,174,165ab6a8-e736-11e3-8748-8d365226be24,Input Message to P5 
2014-05-29 10:22:58,488,165ab6a8-e736-11e3-8748-8d365226be24,ProcessName: VC 
2014-05-29 10:22:58,493,165ab6a8-e736-11e3-8748-8d365226be24,Process Message :TranslateAndLoad 
2014-05-29 10:22:58,493,165ab6a8-e736-11e3-8748-8d365226be24,Input Message to P5 
2014-05-29 10:23:08,301,165ab6a8-e736-11e3-8748-8d365226be24,ProcessName: TL 
2014-05-29 10:23:08,306,165ab6a8-e736-11e3-8748-8d365226be24,P5 Move request

2014-05-29 07:12:15,966,1770ebca-e722-11e3-b793-c6903cc19f13,P5 Started 
2014-05-29 07:12:15,966,1770ebca-e722-11e3-b793-c6903cc19f13,ProcessName: SL 
2014-05-29 07:12:16,644,1770ebca-e722-11e3-b793-c6903cc19f13,Process Message :PreProcess 
2014-05-29 07:12:16,644,1770ebca-e722-11e3-b793-c6903cc19f13,Input Message to P5 
2014-05-29 07:12:16,923,1770ebca-e722-11e3-b793-c6903cc19f13,ProcessName: PP 
2014-05-29 07:12:17,730,1770ebca-e722-11e3-b793-c6903cc19f13,Process Message :TranslateAndLoad 
2014-05-29 07:12:17,731,1770ebca-e722-11e3-b793-c6903cc19f13,Input Message to P5 
2014-05-29 07:14:03,187,1770ebca-e722-11e3-b793-c6903cc19f13,ProcessName: TL 
2014-05-29 07:14:04,048,1770ebca-e722-11e3-b793-c6903cc19f13,P5 Move request

##</code><code>##



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;