くだすれPerl（超初心者用）2

くだすれPerl（超初心 ..

12:nobodyさん
08/03/14 13:36:44
先生∩

sub uniq　　　　#重複行削除
{
　　my %seen;
　　return (grep { ! $seen{$_}++ } @_);
}
sub uniqu　　　 #1回のみの行
{
　　my %seen;
　　$seen{$_}++ for @_;
　　return (grep { $seen{$_} == 1 } @_);
}

な感じの物を見つけたのですが、何が起きてるかさっぱり解りません。
そこで質問です。
以下は2行以上あるものだけの出力になるっぽいのですが、合ってるでしょうか？
sub uniqd
{
　　my %seen;
　　return (grep { $seen{$_}++ == 1 } @_);
}

次ページ