[解決済み] Perl で配列から重複する項目を削除するにはどうすればよいですか？

質問

Perlで配列を持っています。

my @my_array = ("one","two","three","two","three");

配列から重複を取り除くには？

どのように解決するのですか？

で示したように、このようにすることができます。 パールファック4 :

sub uniq {
    my %seen;
    grep !$seen{$_}++, @_;
}

my @array = qw(one two three two three);
my @filtered = uniq(@array);

print "@filtered\n";

出力します。

one two three

モジュールを使いたい場合は uniq の関数です。 List::MoreUtils