selecting between records

[nmretd]

Using perl, I want to pick up only the records between Start and Finish in INFILE:

i.e

Start
AAH
BBH
CCH
Finish

I am using the following code but this only excludes Start and writes everything else to output.txt ?

my $sField = "Start";

foreach $_ (<INFILE> ) {
if ($_ !~ $sField) {
print OUTFILE;
}
}

[JoshT]

Try this, I think it's a little clearer as to what's going on:

use strict;

my $infile = 'file.txt';
my $found = 0;

open(INFILE, $infile) or die "Can't open $infile: $!\n\n";

foreach my $line (<INFILE>) {
	if ($line =~ /Start/) {
		$found = 1;
	} elsif ($line =~ /Finish/) {
		$found = 0;
	} elsif ($found == 1) {
		print OUTFILE $line;
	}
	
}