C C++C#Dart Golang Java JavaScript Kotlin PHP Python R Rust Swift TypeScript UNITS

Home
➤ Perl Tutorials
➤ Sets How-Tos
➤ How to check if Two Sets are Equal in Perl

How to check if Two Sets are Equal in Perl - Step by Step Examples

◀ Previous Next ▶

How to check if Two Sets are Equal in Perl ?

Answer

In Perl, sets can be represented using hash tables. You can check if two sets are equal by comparing their elements.

✐ Examples

1 Check Equality of Two Sets using Hash Tables - Equal Sets

In this example,

We create two hash tables named %set1 and %set2.
We add the same elements to both hash tables.
We compare the keys of both hash tables to ensure they have the same elements.
If both hash tables have the same keys, then the sets are equal; otherwise, they are not.

Perl Program

%set1 = (1 => 1, 2 => 1, 3 => 1);
%set2 = (1 => 1, 2 => 1, 3 => 1);

sub sets_are_equal {
    my ($set1_ref, $set2_ref) = @_;
    return 0 unless scalar keys %$set1_ref == scalar keys %$set2_ref;
    for my $key (keys %$set1_ref) {
        return 0 unless exists $set2_ref->{$key};
    }
    return 1;
}

print sets_are_equal(\%set1, \%set2); # Output: 1

Output

2 Check Equality of Two Sets using Hash Tables - Non-Equal Sets

In this example,

We create two hash tables named %set1 and %set2.
We add different elements to each hash table.
We compare the keys of both hash tables to ensure they have the same elements.
If both hash tables have the same keys, then the sets are equal; otherwise, they are not.

Perl Program

%set1 = (1 => 1, 2 => 1, 3 => 1);
%set2 = (4 => 1, 5 => 1, 6 => 1);

sub sets_are_equal {
    my ($set1_ref, $set2_ref) = @_;
    return 0 unless scalar keys %$set1_ref == scalar keys %$set2_ref;
    for my $key (keys %$set1_ref) {
        return 0 unless exists $set2_ref->{$key};
    }
    return 1;
}

print sets_are_equal(\%set1, \%set2); # Output: 0

Output

Summary

In this tutorial, we learned How to check if Two Sets are Equal in Perl language with well detailed examples.

◀ Previous Next ▶

More Perl Sets Tutorials