在Perl中,有一个内置的方法来比较两个数组的平等？

#!/usr/bin/perl

use 5.010;
use strict;
use warnings;

my @x = (1,2,3);
my @y = qw(1 2 3);

say "[@x] and [@y] match" if @x ~~ @y;

关于Array::Compare：

Internally the comparator compares the two arrays by using join to turn both arrays into strings and comparing the strings using eq.

我想这是一个有效的方法，但只要我们使用字符串比较，我宁愿使用像：

#!/usr/bin/perl

use strict;
use warnings;

use List::AllUtils qw( each_arrayref );

my @x = qw(1 2 3);
my @y = (1,3);

print "[@x] and [@y] matchn" if elementwise_eq( (@x,@y) );

sub elementwise_eq {
    my ($xref,$yref) = @_;
    return unless  @$xref == @$yref;

    my $it = each_arrayref($xref,$yref);
    while ( my ($x,$y) = $it->() ) {
        return unless $x eq $y;
    }
    return 1;
}

如果你正在比较的数组很大，加入它们将做大量的工作，并消耗大量的内存，而不仅仅是逐个比较每个元素。

更新：当然，应该测试这样的语句。简单基准：

#!/usr/bin/perl

use strict;
use warnings;

use Array::Compare;
use Benchmark qw( cmpthese );
use List::AllUtils qw( each_arrayref );

my @x = 1 .. 1_000;
my @y = map { "$_" } 1 .. 1_000;

my $comp = Array::Compare->new;

cmpthese -5,{
    iterator => sub { my $r = elementwise_eq((@x,@y)) },array_comp => sub { my $r = $comp->compare((@x,};

这是最糟糕的情况，其中elementwise_eq必须遍历两个数组中的每个元素1_000次，它显示：

             Rate   iterator array_comp
iterator    246/s         --       -75%
array_comp 1002/s       308%         --

另一方面，最好的情况是：

my @x = map { rand } 1 .. 1_000;
my @y = map { rand } 1 .. 1_000;

              Rate array_comp   iterator
array_comp   919/s         --       -98%
iterator   52600/s      5622%         --

迭代器性能下降很快，但是：

my @x = 1 .. 20,map { rand } 1 .. 1_000;
my @y = 1 .. 20,map { rand } 1 .. 1_000;

              Rate   iterator array_comp
iterator   10014/s         --       -23%
array_comp 13071/s        31%         --

我没有看内存利用率。