How to Filter Items of a Set based on a Condition in Perl - Step by Step Examples

How to Filter Items of a Set based on a Condition in Perl ?

Answer

To filter items of a set based on a condition in Perl, you can iterate through the set and selectively add items that satisfy the condition to a new set.

✐ Examples

1 Filter Even Numbers from a Set

In this example,

First, we create a set of integers named @numberSet with values (1, 2, 3, 4, 5, 6).
Next, we create a new set called @evenNumbers.
We iterate through each element of @numberSet using a foreach loop.
Within the loop, we check if the current number is even using the modulo operator %.
If the number is even, we add it to the @evenNumbers set.

Perl Program

my @numberSet = (1, 2, 3, 4, 5, 6);
my @evenNumbers;
foreach my $num (@numberSet) {
    if ($num % 2 == 0) {
        push @evenNumbers, $num;
    }
}
print join(", ", @evenNumbers);

Output

2, 4, 6

2 Filter Strings Starting with 'A' from a Set

In this example,

First, we create a set of strings named @stringSet with values ("Apple", "Banana", "Apricot", "Orange").
Next, we create a new set called @filteredStrings.
We iterate through each element of @stringSet using a foreach loop.
Within the loop, we check if the current string starts with 'A' using the index() function.
If the string starts with 'A', we add it to the @filteredStrings set.

Perl Program

my @stringSet = ("Apple", "Banana", "Apricot", "Orange");
my @filteredStrings;
foreach my $str (@stringSet) {
    if (index($str, 'A') == 0) {
        push @filteredStrings, $str;
    }
}
print join(", ", @filteredStrings);

Output

Apple, Apricot

Summary

In this tutorial, we learned How to Filter Items of a Set based on a Condition in Perl language with well detailed examples.

◀ Previous Next ▶