I think I've isolated the section that is not doing what I want.
open (FHIN, "$recapfile") or die $!;
my $indexb; ## for the recapfile array
my $ofile;
# Create new array containing all the lines of recapfile up to
# the string RESULTS OF BOARD 1
XYZZY:
while (<FHIN>)
{
last XYZZY if / RESULTS OF BOARD 1/;
chomp;
$ofile[$indexb++] .= $_;
}
close FHIN;
To see what was put into ofile, a line at a time, I used
foreach (@ofile) {
print "$_\n";
}
Is that correct?
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
