http://www.din.or.jp/~ohzaki/perl.htm#ArrayUnique あー、こうすれば！ @a = (1,2,3,4,5,2); @b = (3,4,5,4); # 各要素の出現回数を数えておいて、 grep($count{$_}++, @a); # @bのなかから出現回数が0じゃないものを取得する @c = grep($count{$_}, @b); …

id:smoking186さんの同村指数計測の過程で触れられてた問題。ちょっと考えてみたんですけど、いい方法が思いつきません。うむむむむ……。 @a = (1,2,3,4,5); @b = (1,3,5); # 配列をハッシュのキーに変換 %a = map { $_ => 1 } @a; %b = map { $_ => 1 } @b; …