Re: How to check whether my array contains element x

[choroba]

TIMTOWTDI: you can use the Smartmatch Operator, grep for the value, or just use the old plain loop:

#!/usr/bin/perl
use warnings;
use strict;

use Test::More;

my @checks = (
    sub {
        my ($entity, @array) = @_;
        $entity ~~ @array;
    },

    sub {
        my ($entity, @array) = @_;
        grep $entity eq $_, @array;
    },

    sub {
        my ($entity, @array) = @_;
        for (@array) {
            return 1 if $entity eq $_;
        }
        return;
    },
);

for my $check (@checks) {
    ok     $check->('b', qw(a b c));
    ok not $check->('z', qw(a b c));
}

done_testing();

[LanX]

You forgot to mention hashes! =)

  DB<101> sub in { 
           my ($entity, @array) = @_;
           my %hash;
           @hash{@array}=();
           return exists $hash{$entity};
           }

  DB<102> in(5,0..10)
 => 1

  DB<103> in(42,0..10)
 => ""

but I wouldn't pass @array as a flat list.