Re^3: while(){}continue{}; Useful? (Consistent!)

This produces identical results, and IMO is far clearer and more intuative:

$\="\n";
while (my $x= < 1 2 3 4 >) {     # using glob as iterator
  unless(  $x%2 ) {
    print "$x: chacha"
  }
  print "$x: rumba"
}
print $x;
[download]

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"I'd rather go naked than blow up my ass"

Comment on Re^3: while(){}continue{}; Useful? (Consistent!) Download Code

Replies are listed 'Best First'.
Re^4: while(){}continue{}; Useful? (Consistent!) by LanX (Saint) on Mar 04, 2010 at 00:24 UTC
> This produces identical results, and IMO is far clearer and more intuative: Not with multiple `next`s and code in between. Your more intuitive approach will result in nesting `unless` blocks for each `next`, instead of (mostly) linear code. Cheers Rolf	[reply] [d/l] [select]
Re^5: while(){}continue{}; Useful? (Consistent!) by BrowserUk (Patriarch) on Mar 04, 2010 at 01:16 UTC
No nesting required? `LINE: while ( <STDIN> ) { unless( /^#/ # its a comment or /^$/ # or blank line ) { ... ## do whatever } $count++; ## and count them all }` [download] Update: Darn! Wrong place! Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error. "Science is about questioning the status quo. Questioning authority". In the absence of evidence, opinion is indistinguishable from prejudice. "I'd rather go naked than blow up my ass"	[reply] [d/l]
Re^6: while(){}continue{}; Useful? (Consistent!) by LanX (Saint) on Mar 04, 2010 at 01:22 UTC
> > > This produces identical results, and IMO is far clearer and more intuative: > > Not with multiple `next`s and code in between. underlines added! UPDATE: Think of it like a `switch` statement with a fall through to the `continue` block. Cheers Rolf	[reply] [d/l] [select]