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

配列の中にある重複するレコードを削除する場合、Perl なのでいろいろな方法があると思うが、以下のコードを試してみて欲しい。 #/usr/bin/perl -w my @array = ('a', 'b', 'c', 'a'); my %count; @array = grep {!$count{$_}++} @array; print @array; # 出力は abc となる。 1;

[kiyo_hiko]

個人的にはこういうのがあればいいのにと思うが見つからない：「uniq {$a eq $b} ＠xs」・・・余裕があれば発明してみるかなあ