#!/usr/bin/perl 
use strict;
use warnings;
open (FH ,"C:\\Users\\saahmad\\Desktop\\girish\\oecache_primary_dev2.log_bck") or die "$!";
my @new_rm = "";
my @new_rm_id = "";
my $new_rm_id = "";
my @new_pm = "";
my @new_pm_id = "";
my $new_pm_id = "";
my $tag1 = "";
my $tag2 = "";
my @tag18009 = "";
my @time = "";

while (my $line = <FH>) {
	chomp($line);
	if ($line =~ "AbstractNonBlockingMessageConsumer - Received message"){
		if ($line =~"(18009)") {
			 $tag1 = 1;
			my @tag18009 = split (" ", $line);
			my $val_1 = "$tag18009[18]\n";
			push (@new_rm_id , "$val_1");
			push (@new_rm , "$tag18009[6]\t$tag18009[4]\t$tag18009[18]\n");
			#print "$new_rm[0]";
		}
	}
	
	if ($line =~ "ClientResponsePublisherService - Publish message to Client completed"){
		 $tag2 = 1;
		#if ($line =~ "35=8"){
			#if ($line =~ "39=0"){
				my @time = split (" " , $line);
				my $val_2 = "$time[20]\n";
				push(@new_pm_id , "$val_2");
				push(@new_pm , "$time[9]\t$time[4]\t$time[20]\n");
				#print "@new_pm====>\n"
				
			#}
		#}
		
	}
		
}
	#print "@new_rm\n";
	#print "@new_rm_id\n";
	#print "@new_pm\n";
	#print "@new_pm_id\n";
	for(my $i=0;$i<=scalar(@new_rm_id);$i++){
	#print "$new_rm_id[$i]";
		if ($new_rm_id[$i] = $new_pm_id[$i]) 
			{
				print "$new_rm[$i]\n";
			}	
		}
close (FH);