finding set of records from log using perl.

Here is a log file. We need to create separate file for each set of record. Record should be extracted using some specific pattern as below.

open (FILE, "ab.txt" ) || die "can't open file!";
my $xml;
my $reset=0;
my $SD=1;
while ()

if ( m/V\/\/\w+\sJOB \(/){
if($reset != 0)
{
close OUT;
}
open(OUT, ">JOBS_$SD.txt") || die ("File could not found! $i");

$SD++;
$reset=1;
}

print OUT $_;

}


Advertisements