Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

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?

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://114429]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (5)
As of 2018-07-16 06:40 GMT
Find Nodes?
    Voting Booth?
    It has been suggested to rename Perl 6 in order to boost its marketing potential. Which name would you prefer?

    Results (333 votes). Check out past polls.