同僚の人に上記の要件満たせるようなモジュール無い?って聞かれたので、ぱっとググって見つけたのがList::Compare。
ふーむ。これだけのためにオブジェクト作るのかあ。ふーむ。これくらいなら自前で書くかなあ。
use strict; use warnings; use feature qw(say); use List::Compare; my $lc = List::Compare->new([qw(aa bb cc dd)], [qw(bb cc ff gg)]); say $_ for $lc->get_intersection;