How to Remove Duplicates in an Array in Perl - Step by Step Examples

How to Remove Duplicates in an Array in Perl ?

Answer

To remove duplicates from an array in Perl, you can use the `uniq` function from the List::MoreUtils module or loop through the array to filter out duplicates manually.

✐ Examples

1 Remove Duplicates using List::MoreUtils

In this example,

We create an array named `numbers` with duplicate integers.
We import the `uniq` function from List::MoreUtils module.
We call the `uniq` function on the array to remove duplicates.
Finally, we get an array without duplicates using the `uniq` function.

Perl Program

use List::MoreUtils qw(uniq);
my @numbers = (1, 2, 2, 3, 4, 4, 5);
my @unique_numbers = uniq(@numbers);
print "Array without duplicates: @unique_numbers\n";

Output

Array without duplicates: 1 2 3 4 5

2 Remove Duplicates using Loop

In this example,

We create an array named `colors` with duplicate strings.
We use a loop to check for duplicates and store unique elements in a new array.
Finally, we get an array without duplicates using the new array.

Perl Program

my @colors = ("red", "green", "blue", "green", "yellow", "blue");
my %seen;
my @unique_colors;
foreach my $color (@colors) {
    unless ($seen{$color}) {
        push @unique_colors, $color;
        $seen{$color} = 1;
    }
}
print "Array without duplicates: @unique_colors\n";

Output

Array without duplicates: red green blue yellow

Summary

In this tutorial, we learned How to Remove Duplicates in an Array in Perl language with well detailed examples.

◀ Previous Next ▶