tokuhirom's Blog

Re: Perlで、ある要素が配列(リスト)の中に存在するかを調べる方法

http://dqn.sakusakutto.jp/2011/08/perl_10.html

もし大学野球の女子マネージャーがPHPのin_arrayをPerlで実装したら。

use 5.12.0;

my @list = qw(apple mango orange);
my $item = 'orange';

say $item ~~ \@list ? "yes" : "no";

# 実行結果：'yes'

スマートマッチ演算子で簡単に配列のなかに要素がふくまれるかどうかを判定することができます(速度がどうかはともかくとして)。