Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
PerlMonks  

Re: simple condition

by TheoPetersen (Priest)
on Sep 25, 2001 at 01:11 UTC ( #114429=note: print w/ replies, xml ) Need Help??


in reply to simple condition

I don't understand the two conditions, so I'll try one each way. Suppose we have a foreach loop that loads @flds based on some other array of values, @vals. If all five fields are available then run the sub:

OUTER_LOOP: foreach my $val (@vals) { @flds = something to do with $val; foreach my $check (@flds[9..13]) { next OUTER_LOOP unless $check; } &add_sub (): print "</tr>\n"; }
If any one is available then run the sub:
foreach my $val (@vals) { @flds = something to do with $val; my $go_ahead; foreach my $check (@flds[9..13]) { if ($check) { $go_ahead = 1; last; } } if ($go_ahead) { &add_sub (); print "</tr>\n"; } }
Something like that?


Comment on Re: simple condition
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://114429]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (15)
As of 2014-07-10 17:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    When choosing user names for websites, I prefer to use:








    Results (215 votes), past polls