http://qs321.pair.com?node_id=699735


in reply to "Or" in Array

Greetings, You can use grep to see if the value is in there. For example... 
#!/usr/bin/perl -w
use strict;
#make up some data
my @arr1 = 1 .. 100;
my @arr2 = 0 .. 300;
my @arr3 = reverse(@arr1);
my @arr4 = 5 .. 10;

#test it.
if(grep($_ == 0, (@arr1,@arr2,@arr3,@arr4))){
    print "Found it!";
}else{
    print "no dice!";
}

[download]
this prints 
Found it!

[download]


-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo

In Section Seekers of Perl Wisdom