Grep xml messages from log file using perl

This script will grep lines in between the log
Basically GREP is command to get a line
but here we are trying to get set of xml messages from log which is in scattered manner.
All hash lines are for special use.

open FH, “<spine.xml" ;
my $xml;

while () {
#if ( my $count = m{first tag} .. m{last tag} ) {
if ( m{first tag} .. m{last tag} ) {
$xml .= $_;
#if ($count =~ /E0\z/) {
# process($xml);
# $xml = undef;
#}
}
}
print $xml;

Advertisements