How to remove duplicate items from an array in Perl?

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";

Outputs:

one two three

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



Popular Topics

Recent Languages