Perlfunc: in_array() 2008-08-27 03:50pm
sub in_array {
my $needle = shift();
my @haystack = @_;
foreach my $l(@haystack) {
#print "$l => $needle\n";
if ($l == $needle) { return $needle; }
}
return 0;
}