Match and Extract everything between 2 words in a file

[joeferns79]

I had posed a similar topic some time back but I want some additional information from the input file.
The log file is as shown...

[ERROR] [06 Apr 2009 09:45:56] [Trace] [WebContainer : 48] - App Number: 0
[ERROR] [06 Apr 2009 09:45:56] [Trace] [WebContainer : 48] - Response for AE Completion No such RID Found
[ERROR] [06 Apr 2009 09:46:02] [Trace] [WebContainer : 20] - infrastructure:ID_UNHANDLED: An un-handled server exception occurred. Please contact your administrator.
    at sun.reflect.GeneratedMethodAccessor186.invoke(Unknown Source)
    at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java(Compiled Code))
    at java.lang.reflect.Method.invoke(Method.java(Compiled Code))
    at com.ibm.rmi.util.ProxyUtil$2.run(ProxyUtil.java(Compiled Code))
    at java.security.AccessController.doPrivileged1(Native Method)
    at java.security.AccessController.doPrivileged(AccessController.java(Compiled Code))
    at com.ibm.rmi.util.ProxyUtil.invokeWithPrivilege(ProxyUtil.java(Compiled Code))
    at com.ibm.CORBA.iiop.ClientDelegate.invoke(ClientDelegate.java(Compiled Code))
    at $Proxy90.invoke(Unknown Source)
nested exception is:
infrastructure:RUN_ID_RUNTIME: A runtime exception occurred: javax.transaction.RollbackException.
        at sun.reflect.GeneratedMethodAccessor186.invoke(Unknown Source)
    at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java(Compiled Code))
    at java.lang.reflect.Method.invoke(Method.java(Compiled Code))
    at com.ibm.rmi.util.ProxyUtil$2.run(ProxyUtil.java(Compiled Code))
    at java.security.AccessController.doPrivileged1(Native Method)
    at java.security.AccessController.doPrivileged(AccessController.java(Compiled Code))
    at com.ibm.rmi.util.ProxyUtil.invokeWithPrivilege(ProxyUtil.java(Compiled Code))
    at com.ibm.CORBA.iiop.ClientDelegate.invoke(ClientDelegate.java(Compiled Code))
    at $Proxy90.invoke(Unknown Source)
 
[ERROR] [06 Apr 2009 09:46:02] [Trace] [WebContainer : 49] - infrastructure:ID_UNHANDLED: An un-handled server exception occurred. Please contact your administrator.
    at sun.reflect.GeneratedMethodAccessor186.invoke(Unknown Source)
    at sun.reflect.DelegatingMethodAccessorImpl.invoke(DelegatingMethodAccessorImpl.java(Compiled Code))
    at java.lang.reflect.Method.invoke(Method.java(Compiled Code))
    at com.ibm.rmi.util.ProxyUtil$2.run(ProxyUtil.java(Compiled Code))
    at java.security.AccessController.doPrivileged1(Native Method)
 

I want the Perl script to return everything from the file called "App.log" shown above, that matches the line containing "ID_UNHANDL ED", i.e. the line ...

"[ERROR] [06 Apr 2009 09:46:02] [Trace] [WebContainer : 20] - infrastructure:ID_UNHANDLED: An un-handled server exception occurred. Please contact your administrator." 
upto the next occurence of the string "[ERROR]" 
i.e. it should include the following ...
 
[ERROR] [06 Apr 2009 09:46:02] [Trace] [WebContainer : 20] - infrastructure:ID_UNHANDLED: An un-handled server exception occurred. Please contact your administrator.
....
...
...
nested exception is:
infrastructure:RUN_ID_RUNTIME: A runtime exception occurred: 
...
...
...
at $Proxy90.invoke(Unknown Source)
 

which is the last line of that exception. It shouldn't include the next "[ERROR]" line.

I could come up with the following code but it returned only the lines containing the strings mentioned.

while ($line = <LOGFILE>) {
     # chomp $line;
    if ($line =~ /^\[ERROR\](.*?)infrastructure:ID_UNHANDLED:.*$/) {
         push @message, $line;
         $match = 1;
         next;
        }
    if ($match && ($line =~ /^nested exception is:/)) {
        $line = <LOGFILE>;
        push @message, $line;
        $match = 0;
        next;
       }
    }
 

[Icecrack]

I would put the path to the log file under

my ($logfile, $line, @message);
 

add

$logfile='PATH\TO\Report.log';
 

[joeferns79]

No help there ...

use strict; 
use warnings; 
 
 
#################################################################### 
# genreport 
#################################################################### 
  sub genreport { 
 
   my ($logfile, $line, @message);  
 
   $logfile='C:\PerlScripts\CuramApp.log';
 
 
 
OUTTER: while ($line = $logfile) {  
         if ($line =~ /^\[ERROR\](.*?)infrastructure:ID_UNHANDLED:/) {  
           push @message, $line;  
         while ($line = $logfile) {  
          redo OUTTER if ($line =~ /^\[ERROR\]/);  
         push @message, $line;  
      }  
   }  
}  
 
print "@message"; 
 
} 
 

Also, tried ...

use strict; 
use warnings; 
 
 
#################################################################### 
# genreport 
#################################################################### 
  sub genreport { 
 
   my ($logfile, @message);  
 
   $logfile='C:\PerlScripts\CuramApp.log';
 
   my $file = do { local $/; $logfile }; 
 
   while($file =~ /^(\[ERROR\](?-s:.*)infrastructure:ID_UNHANDLED.*?infrastructure:RUN_ID_RUNTIME.*?)\n\n/mgs) {  
push(@message, $1);  
}  
 
print "@message"; 
 
} 
 
 

[Icecrack]

are you ever calling your Sub ? ever ?


Add this above sub genreport {

&genreport;

[joeferns79]

Sorry for the delay in replying but yes, I am. I am still not seeing any output...

use strict;
 
 
 
####################################################################
# genreport
####################################################################
  sub genreport {
   my ($logfile, $reportfile) = @_;
   my ($line, @message, @summary, $count, $match, $n);
 
   open(LOGFILE, "<$logfile")
      or die "Can't open $logfile: $!";
 
   open (REPORTFILE, ">$reportfile")
      or die "Can't open $reportfile: $!";
 
 
   $count = $match = 0;
   while ($line = <LOGFILE>) {
     # chomp $line;
    if ($line =~ /^(\[ERROR\](?-s:.*)infrastructure:ID_UNHANDLED.*?infrastructure:RUN_ID_RUNTIME.*?)\n\n/mgs) {
         push @message, $line;
         $match = 1;
         next;
        }
 
    }
   for (@message) {
   print;
 }
 
}
 
####################################################################
# main
####################################################################
 
if (@ARGV != 2) {
   die "usage: UAESummary.pl <logfile> <reportfile>";
}
 
my ($logfile, $reportfile) = @ARGV;
 
genreport($logfile, $reportfile);
 
exit 0;
 
 

[Icecrack]

sorry for the delay on my end i have been testing this for weeks now, and just found the answer but first i need to know how your logs are set out is it 1 big single line or is it a multi-lined?
past a log file here as a file attachment

[joeferns79]

Icecrack, I was going through the forum and I noticed that you had posted a reply. I know it's like 2 months since you replied and I am not sure if you'll get this, but yes, it's a multi-line log.