Re: looping through a file

[Rob Dixon]

Steve Bertrand wrote:

but if they appear in the file in a different sequence then you also
need to rewind and start looking at the beginning of the file once
again like this:

 ID:
 foreach my $prime_id ( @id_hits ) {
   while ( my $line = <$AFILE> ) {
     if ( $line =~ /$prime_id/ ) {
       print "$line\n";
       seek $AFILE, 0, 0;
       next ID;
     }
   }
 }

Would using:

last(); # Break from while back to foreach

..instead of

next(ID);

... not produce the same result here?

Yes, that would be equivalent.

Rob

--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/