i ve this program searching for PID but i am unable to add a atring lso in that... can u help out??? 
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]

In reply to Re^2: can anyone help with to write this script??? by jaggu_bg
in thread searching for number & string.... by jaggu_bg

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.