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

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,

  1. First, we create a set of integers named @numberSet with values (1, 2, 3, 4, 5, 6).
  2. Next, we create a new set called @evenNumbers.
  3. We iterate through each element of @numberSet using a foreach loop.
  4. Within the loop, we check if the current number is even using the modulo operator %.
  5. 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,

  1. First, we create a set of strings named @stringSet with values ("Apple", "Banana", "Apricot", "Orange").
  2. Next, we create a new set called @filteredStrings.
  3. We iterate through each element of @stringSet using a foreach loop.
  4. Within the loop, we check if the current string starts with 'A' using the index() function.
  5. 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.


More Perl Sets Tutorials

  1. How to create an Empty Set in Perl ?
  2. How to Initialize a Set in Perl ?
  3. How to Get Length of a Set in Perl ?
  4. How to create a Set of size N in Perl ?
  5. How to create a Set of Numbers from 1 to N in Perl ?
  6. How to create a Set of integers in Perl ?
  7. How to create a Set of Strings in Perl ?
  8. How to Access Items in a Set in Perl ?
  9. How to get a Random Item in a Set in Perl ?
  10. How to Iterate Over a Set in Perl ?
  11. How to check if a Set is Empty in Perl ?
  12. How to check if a Set is Not Empty in Perl ?
  13. How to get Subset from a Set in Perl ?
  14. How to check if a Specific Item is present in the Set in Perl ?
  15. How to check if a Set contains all the items of Another Set in Perl ?
  16. How to Sort Items of a Set in Perl ?
  17. How to Copy a Set in Perl ?
  18. How to add an Item to a Set in Perl ?
  19. How to find Union of Two Sets in Perl ?
  20. How to find Intersection of Two Sets in Perl ?
  21. How to check if Two Sets are Equal in Perl ?
  22. How to Convert a Set of Integers to a Set of Strings in Perl ?
  23. How to Convert a Set of Strings to a Set of Integers in Perl ?
  24. How to Convert a Set of Floats to a Set of Strings in Perl ?
  25. How to Convert a Set of Strings to a Set of Floats in Perl ?
  26. How to Filter Items of a Set based on a Condition in Perl ?
  27. How to Remove Specific Item from a Set in Perl ?
  28. How to Remove Items from Set based on a Condition in Perl ?
  29. How to create a Set of Sets in Perl ?