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