open (FH, "logfile") || die "Cannot open file";
while ($line = <FH>) {
     my ($pid, $cfile) = ($line =~ /cm:(\d+)\s+([^(]*)/);
     print "$pid $cfile\n";
}
[download]

Hi jaggu_bg,

After seeing your code with some assumptions, I have created a below script. You have to be very specific with your input and required output, so that we can give the answer without any assumptions.

I have taken input file and input string as input parameters and created the output in output.txt file.

use strict;
use warnings;

my $input_file = $ARGV[0];  #input file name
my $input_pid  = $ARGV[1];  #input file name
my $input_string = $ARGV[2];  #input string to be searched in the matc
+hed string

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>){  #read the file line by line
    
    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 and i
+f matches
            
        print $ofile "$line\n";  #write the output in a output file
            
        }        
    }    
}

Command Line:
-------------

>perl test.pl a.txt 10570 'cm_child.c'

File output.txt:
----------------
PID:10570
C File:cm_child
[download]

Updated:Based on the input given by OP in private message and below reply

hi, i am new ... sorry for the in adequate data. actually i have to enter a pid number and a string. like 10570 and fm_cust_validate_customer.c. in output i have to get all the lines which matches this two . as u can see in log file it starts with E,D,M,W. i need all lines from one E to other E or D anything which matches pid number & the string.

It would be helpfull to see, what type of result the program should give, what you tried so far and what exactly is going wrong.

i wanna search for the PID i give and the string.

#!/tools/opt/bin/t2.perl

use Getopt::Std;
getopts('hDp:f:sb:e:q:t:jl');

if($Getopt::Std::opt_f) {$sFile = $Getopt::Std::opt_f;}
if($Getopt::Std::opt_p) {$iPid  =  $Getopt::Std::opt_p;}
if($Getopt::Std::opt_q) {$sOutFile = $Getopt::Std::opt_q;}
if($Getopt::Std::opt_c) {$iStr  =  $Getopt::Std::opt_c;}

my $sAppNameString = "[c,C][m,M]";
my $sStartString = ".?[DWEM]";
my $sAppPidString = ".*\\s+$sAppNameString:(\\d+\\.?\\d*)\\s+.*";
my $sAppString = "$sStartString$sAppPidString";

open(HFILE, "< $sFile") or die ("Failed to open $sFile");
$hFile = *HFILE;

print ("Processing file: \"$sFile\"\n");

#Splitting the log file per pid
if ($Getopt::Std::opt_s) {
  seek($hFile,0,0);

  while (<$hFile>)
    {
        if (m/$sAppString/) {
          $iPidTmp = $1;
        }
        if(($iPid != 0) && ($iPid != $iPidTmp)) {
          next;
        }

        $hOutputFile = $hFiles{$iPidTmp};
        if($hOutputFile) {
          print $hOutputFile "$_";
        }else{
          print ("PID = $iPidTmp\n");
          open( HPIDFILE.$iPidTmp, ">$sOutFile.$iPidTmp" )
                or die ("Failed to open $sOutputFile.$iPidTmp");
          $hFiles{$iPidTmp} = *HPIDFILE.$iPidTmp;
          $hOutputFile = $hFiles{$iPidTmp};
          print $hOutputFile "$_";
        }
    }
}
[download]