How do I search for a string in a log file????? 1

[dshaw21369]

I'm wanting search for the string "Rollback", if I see the string send an email with a message.


#!/usr/bin/perl

@XML_COBOL_LOG =();
$Rollback ="Rollback";
#Open Debug
unless (open (Debug,">/export/home/egate/Perl_Development/Debug.txt&quot)
{
print "Debug.txt does not exist\n";
}
#Open bobConvert_XML_to_Cobol.log
unless (open (XML_COBOL_LOG,&quot;</export/home/egate/egate/client/logs/bobConvert_XML_to_Cobol.log&quot)
{
print Debug &quot;bobConvert_XML_to_Cobol.log does not exist\n&quot;;
}
(@XML_COBOL_LOG)=<XML_COBOL_LOG>;

close Debug;
close XML_COBOL_LOG;

Thanks for your help!

 

[Coderifous]

Take out the line:

(@XML_COBOL_LOG)=<XML_COBOL_LOG>;

and insert:

while(<XML_COBOL_LOG>){
  if( /$Rollback/ ){
     print Debug &quot;$Rollback on line $.\n&quot;; 
  }  
}

See if that does what you want.

--jim

 

[dshaw21369]

It Worked!!! Thanks for the help!!