読者です 読者をやめる 読者になる 読者になる

PerlでPHPのin_arrayっぽいことしたいって話

某所で話題になったので。

ぼくはこうしてる

use strict;
use warnings;
my @arr = qw/ran miki suu dia/;

if (grep {$_ eq "ran"} @arr) {
    warn "found ✖╹◡╹✖";
}
unless (grep {$_ eq "amu"} @arr) {
    warn "not found ✖X◡X✖";
}

追記

何度もチェックするときは計算量もったいないのでhash作ってます

use strict;
use warnings;
my @arr = qw/ran miki suu dia/;

my %found = map {$_ => 1} @arr;

if ( $found{"ran"} ) {
    warn "found ✖╹◡╹✖";
}

unless ( $found{"amu"} ) {
    warn "not found ✖X◡X✖";
}