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

Home
➤ Perl Tutorials
➤ Arrays How-Tos
➤ How to check if Two Arrays have Same Elements (Regardless of Order) in Perl

How to check if Two Arrays have Same Elements (Regardless of Order) in Perl - Step by Step Examples

◀ Previous Next ▶

How to check if Two Arrays have Same Elements (Regardless of Order) in Perl ?

Answer

To check if two arrays have the same elements regardless of order in Perl, you can sort both arrays and then compare them element by element.

✐ Examples

1 Arrays with Same Elements (Order Ignored)

In this example,

We create two arrays named @arr1 and @arr2 with the same elements but in different order.
We sort both arrays using the sort function.
We then define a subroutine arrays_equal that checks if the sorted arrays are equal.
Finally, we call arrays_equal to compare the arrays and print the result.

Perl Program

@arr1 = (1, 2, 3);
@arr2 = (3, 1, 2);

sub arrays_equal {
  my ($arr1, $arr2) = @_;
  return 0 unless @$arr1 == @$arr2;
  for my $i (0 .. $#$arr1) {
    return 0 unless $arr1->[$i] == $arr2->[$i];
  }
  return 1;
}

print arrays_equal([sort @arr1], [sort @arr2]);

Output

2 Arrays with Different Elements (Order Ignored)

In this example,

We create two arrays named @arr3 and @arr4 with different elements.
We sort both arrays using the sort function.
We then define a subroutine arrays_equal that checks if the sorted arrays are equal.
Finally, we call arrays_equal to compare the arrays and print the result.

Perl Program

@arr3 = (1, 2, 3);
@arr4 = (4, 5, 6);

sub arrays_equal {
  my ($arr1, $arr2) = @_;
  return 0 unless @$arr1 == @$arr2;
  for my $i (0 .. $#$arr1) {
    return 0 unless $arr1->[$i] == $arr2->[$i];
  }
  return 1;
}

print arrays_equal([sort @arr3], [sort @arr4]);

Output

Summary

In this tutorial, we learned How to check if Two Arrays have Same Elements (Regardless of Order) in Perl language with well detailed examples.

◀ Previous Next ▶

More Perl Arrays Tutorials