Like others mentioned in this thread, I rarely use loop labels. One real-world example I remember is a mock Syslog server I wrote a while back for automated testing. I embed the whole function below to give an example of a real-world (not contrived) example of using loop labels in Perl. I remember at the time being a bit surprised about using labels in Perl (because I do it so rarely) but after careful consideration felt it was the clearest way to write this particular code. Also the function itself was quite a bit longer than I usually write, but again felt it was warranted here. 

sub do_syslog_server
{
   my $host               = shift;
   my $port               = shift;
   my $sleep_after_accept = shift;
   my $sleep_after_recv   = shift;

   my_log( "Start on host '$host' at " . get_datetime_stamp() . "\n" )
+;
   my_log("  pid=$$\n");
   my_log("  port=$port\n");
   my_log("  sleep_after_accept=$sleep_after_accept\n");
   my_log("  sleep_after_recv=$sleep_after_recv\n");

   # This socket is used to listen for connections.
   my $listener = IO::Socket::INET->new(
      LocalPort => $port,
      Proto     => 'tcp',
      Listen    => 5,
      ReuseAddr => 1,
   ) or die "error: IO::Socket::INET new: $@";

   my $selector = IO::Select->new($listener);

SERVER:
   while ( my @ready = $selector->can_read() )
   {
   CLIENT:
      for my $client (@ready)
      {
         if ( $client == $listener )
         {
            my $new_conn = $listener->accept();
            $selector->add($new_conn);
            my $fh_hex = sprintf '0x%x', $new_conn;

            my $peerhost = $new_conn->peerhost();
            my $peerport = $new_conn->peerport();

            my $peeraddr = $new_conn->peeraddr();
            my $peerhostfull = gethostbyaddr( $peeraddr, AF_INET ) || 
+"Cannot resolve";

            my $fromstr = "from $peerhost:$peerport (host=$peerhostful
+l)";

            my_log("Accepted new connection $fromstr\n");
            if ($sleep_after_accept)
            {
               my_log("Sleeping for $sleep_after_accept seconds...\n")
+;
               sleep($sleep_after_accept);
            }
         }
         else
         {
            my $cli_cmd_str = recv_tcp_client($client);
            if ( !defined($cli_cmd_str) )
            {
               my $peerhost = $client->peerhost();
               my $peerport = $client->peerport();
               my_log("Client $peerhost:$peerport closed socket\n");
               $selector->remove($client);
               $client->close();
               next CLIENT;
            }
            if ( $cli_cmd_str =~ /^KNOB_SERVER_PLEASE_QUIT\s*$/ )
            {
               my_log("Server quitting on Knob's command\n");
               last SERVER;
            }
            if ($sleep_after_recv)
            {
               my_log("Sleeping for $sleep_after_recv seconds...\n");
               sleep($sleep_after_recv);
            }
         }
      }
   }

   my_log("Closing server\n");
   close($listener) or die "error: close server: $!";
   my_log("End do_syslog_server\n");
}

[download]

Update: see also Re: Multiple consecutive connections to a socket - example event-driven server using IO::Select

In reply to Re: Perl Best Practices - Loop Labels by eyepopslikeamosquito
in thread Perl Best Practices - Loop Labels by kcott

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.