My guess is that you have tailored your program to work with the logic in this subroutine (or that it's an accidental success).

perldoc -f do says:
"do BLOCK" does not count as a loop, so the loop control statements "next", "last", or "redo" cannot be used to leave or restart the block. See perlsyn for alternative strategies.
More details are available in perlsyn

One way what you've written would work could be described as:

1) you repeatedly call my $line = nextline( $fh );
2) the first line of the do block reads a line off of your filehandle.
3 a) if that line is a comment, the subroutine exits via next (next doesn't go to the next iteration of the do block (as we learned from the documentation)).
3 b) if that line isn't a comment, it's assigned to $l (via clean()).
4) this happens until $l ne ''.

Since even "blank" lines will contain a newline, the until conditional will guarantee that your do block is only entered once (even for non-comment lines).

Hope that helps a little,

-- Douglas

In reply to Re: exiting via next: Extra careful or just bitchy? by dug
in thread exiting via next: Extra careful or just bitchy? by vacant

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.