Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation
 
PerlMonks  

Re: IF and some conditions

by Ben Win Lue (Friar)
on Jun 02, 2005 at 14:52 UTC ( [id://462943]=note: print w/replies, xml ) Need Help??


in reply to IF and some conditions

for rather small values that are OK, this seems to be the fastest solution: 
my @ok=(0,0,0,1,0,1,0,1);
#       0 1 2 3 4 5 6 7

my $x = 4;
my $y = 5;

if($ok[$x]){print "$x is ok\n";}
if($ok[$y]){print "$y is ok\n";}

[download]
if your OK-values get larger, I would use a hash instead of an array!

In Section Seekers of Perl Wisdom

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?

www.com | www.net | www.org
Node Status?
node history
Node Type: note [id://462943]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? • Last hour • Other CB clients
Other Users?
Others goofing around in the Monastery: (6)
As of 2024-04-26 09:36 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found