How to check if a Set is Not Empty in Perl


How to check if a Set is Not Empty in Perl ?

Answer

In Perl, you can use the scalar context to check if a Set is not empty.



✐ Examples

1 Check if Set is Not Empty

In this example,

  1. We declare a Set using a Perl array and initialize it with some elements.
  2. We use the scalar operator in scalar context on the Set to determine its size.
  3. If the size of the Set is greater than 0, it means the Set is not empty; otherwise, it is empty.
  4. We print the result to the standard output to indicate whether the Set is not empty or not.

Perl Program

# Initialize a Set
my @set = (1, 2, 3); # Or my @set;

# Check if Set is not empty
if (scalar @set) {
    print 'The Set is not empty\n';
} else {
    print 'The Set is empty\n';
}

Output

The Set is not empty

2 Check if Empty Set is Not Empty

In this example,

  1. We declare an empty Set using a Perl array.
  2. We use the scalar operator in scalar context on the Set to determine its size.
  3. Since the size of the Set is 0, it means the Set is empty.
  4. We print the result to the standard output to indicate that the Set is indeed empty.

Perl Program

# Initialize an empty Set
my @empty_set;

# Check if Empty Set is not empty
if (scalar @empty_set) {
    print 'The Set is not empty\n';
} else {
    print 'The Set is empty\n';
}

Output

The Set is empty

Summary

In this tutorial, we learned How to check if a Set is Not Empty 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 ?