D Fri Nov 21 14:09:41 2008  TME_BILLING_COE  cm:10570  cm_child.c(107)
+:4385 1:blrdxp-santbs:CustomerCenter
        XXX CMAP: op_custom() past op_decode, opcode: PCM_OP_CUST
 D Fri Nov 21 14:09:41 2008  TME_BILLING_COE  cm:10570 cm_child.c :92 
+1:blrdxp-santbs:CustomerCenter:0:AWT-EventQueue-0:83:1227256900:0
        op_cust_validate_customer input flist
# number of field entries allocated 20, used 3
0 PIN_FLD_POID           POID [0] 0.0.0.1 /plan -1 0
0 PIN_FLD_ACCOUNT_OBJ    POID [0] 0.0.0.1 /account -1 0
0 PIN_FLD_PAYINFO       ARRAY [1] allocated 20, used 5
1     PIN_FLD_NAME            STR [0] "Invoice1"

D Fri Nov 21 14:09:41 2008  TME_BILLING_COE  cm:10570  fm_cust_pol_pre
+p_payinfo.c:113 1:blrdxp-santbs:CustomerCenter:0:AWT-EventQueue-0:83:
+1227256900:0
        op_cust_pol_prep_payinfo input flist
# number of field entries allocated 20, used 5
0 PIN_FLD_POID           POID [0] 0.0.0.1 /payinfo/invoice -1 0
0 PIN_FLD_ACCOUNT_OBJ    POID [0] 0.0.0.1 /account -1 0
0 PIN_FLD_FLAGS           INT [0] 1

use strict;
use warnings;

my $input_file = $ARGV[0]; my $input_pid  = $ARGV[1];  
my $input_string = $ARGV[2]; 
print "Usage: test.pl <input file name> <input process id> <input file
+string>" if (@ARGV != 3);

open (my $hfile, '<', "$input_file") || die("Unable to open the file $
+input_file\n");

open (my $ofile, '>', "output.txt") || die("Unable to open the file ou
+tput.txt\n");
while (<$hfile>){  
    my $line = $_;
    if ($line =~ /[DWEM]\s+.*?\s+(?:c|cm|M)\:($input_pid)\s+([^\.]+\.c
+)/s)
    {
        my $c_file = $2;
        my $pid = $1;

        if($input_string eq $c_file){   #check with input string
        print $ofile "$line\n";  #write the output in a output file
        }
    }
}

##</code><code>##

D Fri Nov 21 14:09:43 2008  TME_BILLING_COE  cm:10570  cm_child.c(107)
+:4385 1:blrdxp-santbs:CustomerCenter:0:AWT-EventQueue-0:63:1227256901


D Fri Nov 21 14:09:46 2008  TME_BILLING_COE  cm:10570  cm_child.c(107)
+:4385 1:blrdxp-santbs:CustomerCenter:0:AWT-EventQueue-0:3:1227256904: 
##</code><code>##

D Fri Nov 21 14:09:41 2008  TME_BILLING_COE  cm:10570  cm_child.c(107)
+:4385 1:blrdxp-santbs:CustomerCenter
        XXX CMAP: op_custom() past op_decode, opcode: PCM_OP_CUST
 D Fri Nov 21 14:09:41 2008  TME_BILLING_COE  cm:10570 cm_child.c :92 
+1:blrdxp-santbs:CustomerCenter:0:AWT-EventQueue-0:83:1227256900:0
        op_cust_validate_customer input flist
# number of field entries allocated 20, used 3
0 PIN_FLD_POID           POID [0] 0.0.0.1 /plan -1 0
0 PIN_FLD_ACCOUNT_OBJ    POID [0] 0.0.0.1 /account -1 0
0 PIN_FLD_PAYINFO       ARRAY [1] allocated 20, used 5
1     PIN_FLD_NAME            STR [0] "Invoice1"