David David - 2 years ago 152
Perl Question

How do I remove duplicate items from an array in Perl?

I have an array in Perl:

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

How do I remove the duplicates from the array?

Answer Source

You can do something like this as demonstrated in perlfaq4:

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

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

print "@filtered\n";


one two three

If you want to use a module, try the uniq function from List::MoreUtils

Recommended from our users: Dynamic Network Monitoring from WhatsUp Gold from IPSwitch. Free Download