配列情報の絞込みその後

Perl

ircで色々教えてもらった。
http://rafb.net/paste/results/UdqEr958.html
こんなんとか。

これでよかった。

やりたかったことは@hoge & @mogeな絞込み。
この意図がうまく伝えられてなかったですね＞＜

http://search.cpan.org/~samv/Set-Object-1.18/lib/Set/Object.pm#intersection(_%5Blist%5D_)
とかもつかえそげ。

ちなみにさっきのコードだとgrep definedしないとダメポ。

（追記）
use Perl;にも同じ内容をPostしてたら、メールが来てた。
こんなの。やっぱList::Compareかぁ。
Thanks:Stephen Steneker



use List::Compare ();
my @hoge = qw/1 2 3 4 5 5/;

my @moge = qw/2 5/;
my @result = List::Compare->new(\@hoge, \@moge)->get_intersection;
## 2,5 in @result