Beefy Boxes and Bandwidth Generously Provided by pair Networks
"be consistent"

Re: Loop controls transcends scope?

by TGI (Parson)
on Jan 15, 2009 at 21:39 UTC ( #736682=note: print w/replies, xml ) Need Help??

in reply to Loop controls transcends scope?

If you decide Corion's excellent advice and enable warnings for your code while body of the code intact, you can suppress this warning easily.

sub test { my ( $s ) = @_; if ($s == 3) { no warnings 'exiting'; # suppress the warning for this lexical +scope only. next; } else { print $s . "\n"; } }

My personal preference is to use something more like this:

use strict; use warnings; my @stuff = 1..5; for my $s (@stuff) { next if is_bad_stuff($s); my $formatted = format_stuff($s); print "$formatted: passed\n"; } sub is_bad_stuff { my ( $s ) = @_; return $s == 3; } sub format_stuff { my ( $s ) = @_; $s = '<UNDEF>' return "Formatted $s"; }

The downside of this is the extra function call. The upside is that it's (hopefully) easier to read and maintain.

I like to collect code with side-effects (like printing) into as few places as possible, so my format_stuff routine preps the data for output but does not emit it. I know this is a toy example, but the habit has served me well.

TGI says moo

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://736682]
and the rats come out to play...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (10)
As of 2018-03-22 10:32 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (273 votes). Check out past polls.