my @array = ('l', 'e', 'i', 'l', 'a'); my %count; @array = grep( !$count{$_}++, @array ) ; print @array; ⇒出力は『leia』 なんとなーくやってる事は解るけれど、 見ただけだとちゃんと理解できない。。 grepと !$count{$_}++ の意味がよく解らないの。 という訳で、少し分解。 = = = = = = = = @test = ('dummy', 'test', 'ddummyy') ; @array = grep(/dummy/, @test) ; grepは真偽を判断して、真の値のみを返す。 ↑の場合は、@testの要素を1つずつ『dummy』と比較して 『dummy』が含まれていたら「真」、含まれていなかったら「偽」を返す。 ⇒結果、@arrayには「真」のデータだけ返