I think that what you have posted here is very useful. My dream version of this would be along the lines of: 
# use strict, etc...

OUTER:
while ( 1 )
{
    INNER_A:
    while ( my $dir_A = readdir( $dh ) )
    {
        # something4

      INNER_B:
      while ( my $dir_B = readdir( $dh ) )
      {
        
     INNER_C: 
     while ( my $dir_C = readdir( $dh ) )
           {

     # something6

     next INNER_C if ...there are still files in the folder that have 
+not been checked...else return to OUTER;

     }

    next INNER_B if ...there are still files in the folder that have n
+ot been checked...else return to OUTER;
      
      }
    
        next INNER_A if ...there are still files in the folder that ha
+ve not been checked...;
   
    }
    sleep 2;
    next OUTER if the network is not too busy;  # I have no idea how o
+r if I should do this
 sleep 4;
}

[download]

In reply to Re^4: next unless - and then 'until' by Win
in thread next unless - and then 'until' by Win

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.