Extracting messages from log file 1

[behunter]

I would like to extract all messages that pertain to a particular IP address from a logfile, using the IP address as an argument. This seems like it should be easy to do, but as a newbie to perl I am stumped. The logfile looks like this...

Sent:
Host=199.199.199.199
Filename=xxxxxxxx.xxxxxx
Date=mm.dd.yyyy:hh.mm.ss
0 or more lines of comments

Received:
Host=33.33.33.33
Filename=xxxxxxxx.xxxxxx
Date=mm.dd.yyyy:hh.mm.ss
0 or more lines of comments

Received:
Host=199.199.199.199
Filename=xxxxxxxx.xxxxxx
Date=mm.dd.yyyy:hh.mm.ss
0 or more lines of comments

etc....

Thanks in advance,
behunter

 

[tsdragon]

The following code will open the logfile, read until it finds the proper IP address, then print all lines until it finds a blank line, then repeat the process.

$filename = "your logfile path/name";
$ip = "the desired ip address";
open(LOGFILE, $filename);
while ( <LOGFILE> ) {
   next unless /$ip/;
   while ( <LOGFILE> && !/\A\s*\Z/; ) {
      print $_;
   }
}
close LOGFILE;

Tracy Dryden
tracy@bydisn.com

Meddle not in the affairs of dragons,
For you are crunchy, and good with mustard.