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: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/


Reply via email to