Programming question: PHP in_array equivalent in Perl?

[chicken]

Question for the geeks.

I'm trying to find a Perl way of doing PHP's in_array.

I feel very stupid right now. Help!

Comments

[paulv.livejournal.com]


my @array = qw(buffy angel firefly);
my $wanted = "angel";

foreach my $array_value (@array) {
        if ($array_value eq $wanted) {
                print "yay!\n";
        } else {
                print "boo!\n";
        }
}


[chicken-cem.livejournal.com]

I thought of that. However, I was hoping for something less verbose. I suppose as kernelm says, I could wrap that in a subroutine (returning a boolean ) and then call it as if it were a built-in function. I suppose having used PHP for so long now, going back to Perl feels like too much work.

[paulv.livejournal.com]

Well, there's also this question in perlfaq4. It's probably right about using a hash instead of an array.

[chicken-cem.livejournal.com]

Yes, a hash really is better in this case. Funny I didn't think of it because I've used three other hashes in this program so far. Grr. Argh!

BTW, major points for making your example use Whedonverse content. Shouldn't all programming examples work this way? ;-)

sub buffyBotSubRoutine_boolean001 {
  # Are we allowed to pass a whole
  #  array as a param?
  my @nest = shift;
  my $wanted = "Spike";;
  foreach my $vampire (@nest) {
    if ($vampire eq $wanted) {
      buffyBotSubRoutine_shagHim($vampire);
    } else {
      buffyBotSubRoutine_stakeHim($vampire);
    }
  }
}

[kernelm.livejournal.com]

Careful, that's not really what you want.

You need to break upon finding a positive result. And only print a negative result at the end if there was no positie hit.

[chicken-cem.livejournal.com]

Right, of course -- I made a subroutine and used 'return' to break out of the foreach and return the appropriate boolean. No big deal.