Perl で、配列中の重複レコードを削除するには？

配列の中にある重複するレコードを削除する場合、Perl なのでいろいろな方法があると思うが、以下のコードを試してみて欲しい。

#/usr/bin/perl -w my @array = ('a', 'b', 'c', 'a'); my %count; @array = grep {!$count{$_}++} @array; print @array; # 出力は abc となる。 1;

Comments