cat /home/spjal/files/bprcf.parms /home/spjal/files/temp |
perl ' BEGIN { linectr=0 }
{ linectr++
####
#!/usr/local/bin/perl -w;
use strict;
my $infile = "/path/to/infile";
my $outfile = "/path/to/outfile";
open(INFILE, "$infile") || die "Died openning $infile. $!\n";
open(OUTFILE, ">$outfile") || die "Died openning $outfile. $!\n";
my $linectr = 0;
my $fline;
my $lline;
while() {
chomp; # Remove the newline.
##
##
if(++$linectr == 1) {
my($scheck, $echeck, $fcheck, $lcheck) = split; # Splits on whitespace by default.
##
##
if ( $fcheck == $scheck )
{ $fline=2 }
else
{ $fline=(($fcheck - $scheck) + 3) }
if ( $lcheck == $echeck )
{ $lline=999999999 }
else
{ $lline=(($lcheck - $scheck) + 3) }
}
elsif ( $linectr == 2 )
{ print OUTFILE "$_\n"; # $_ holds the line.
}
elsif ( linectr <= lline && linectr >= fline )
{ print OUTFILE "$_\n";
}
}