in reply to Re^6: last in a do while loop (for (;;))
in thread last in a do while loop

Did it here as I didn't feel like it needed a completely new topic. I'll probably stick with the bare block in the future. The data is generated by a program that does some artificial splitting of the lines if it has over 80 characters in a line so... to do anything useful with the data the lines need to be reordered. Thanks both of u.
  • Comment on Re^7: last in a do while loop (for (;;))

Replies are listed 'Best First'.
Re^8: last in a do while loop (for (;;))
by ikegami (Patriarch) on Jan 26, 2008 at 02:32 UTC
    redo is usually good for that. 
    while (<$fh>) {
   chomp;
   if (... && !eof($fh)) {
      $_ .= <$fh>;
      redo;
   }

   ...
}

    [download]
[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom