DEBUG 29 Apr 2012 23:33:53,428 [Single-Threaded-Persistence] UnpersistedMessageStore - Firm ==> os7759N
DEBUG 29 Apr 2012 23:33:53,428 [Thread:UnprocessedMessageProcessor-] UnprocessedMessageProcessor - Size of previousOrders : 0
DEBUG 29 Apr 2012 23:34:04,337 [inputAdapterInboundTransportQueueDispatcher0] AbstractNonBlockingMessageConsumer - Received message <{ (18001)="8=FIX.4.2
9=104
35=A
34=150000
49=os7759N
50=*
52=20110131-22:07:34.718
56=CME
57=G
95=3
96=AS0
142=DESK123
98=0
108=30
1007=2
1005=Y
1006=250
10=203
" (18002)="LOGIN_REQUEST" (20002)="101010" (18008)="1" (50001)="202020" (18004)="os7759N" (18003)="*" (18009)="null-null-100" }>
DEBUG 29 Apr 2012 23:34:04,417 [WorkerThread : os7759N] ClientResponseCreatService - User group name  : null
DEBUG 29 Apr 2012 23:34:04,417 [WorkerThread : os7759N] ClientResponseCreatService - Re populating REQ Originator 18011 : null
DEBUG 29 Apr 2012 23:34:04,419 [WorkerThread : os7759N] ClientResponsePublisherService - Publish message to Client completed-> [18002]="LOGIN_ACK" [18003]="*" [18004]="os7759N" [18008]="1" [18009]="null-null-100" [18010]="LOGIN_REQUEST" [19001]="8=FIX.4.2
9=102
35=A
34=0
49=CME
50=G
52=20120430-04:34:04
56=os7759N
57=*
142=OECLoc
143=DESK123
369=0
1001=N
1002=Y
10=238
" [20002]="oecache_primary_dev2" [50001]="fedvog01c"


##</code><code>##

#!/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);