lejon

I find myself writing perl member functions since there is no one built in…

sub member {
  my $elm = shift;
  my @lst = @_;

  for( my $i=0; $i < @lst; $i++) {
    return 1 if lc($elm) eq lc($lst[$i]);
  }

  return 0;
}

I like this one better... it reads better I think, but sadly I believe "foreach" will disappear in Perl 6 is it not?

sub member {
  my $elm = shift;
  my @lst = @_;

  foreach my $item (@lst) {
    return 1 if lc($elm) eq lc($item);
  }

  return 0;
}

Update: Now, if you use "use 5.010;" (which I strongly recommend that you do!) (of course running Perl 5.10 or higher) this can be done with the very cool "smart match" operator "~~".

$scalar ~~ @list; # Member with new smart match operator in Perl 5.10 or higher.