相关疑难解决方法(0)

我有两个字符串数组,我想比较相等:

my @array1 = ("part1", "part2", "part3", "part4");
my @array2 = ("part1", "PART2", "part3", "part4");

是否有内置的方法来比较数组,就像标量一样？我试过了:

if (@array1 == @array2) {...}

但它只是在标量上下文中评估每个数组,因此比较了每个数组的长度.

我可以使用自己的函数来完成它,但它看起来像是一个低级操作,应该有一个内置的方法来做它.在那儿？

编辑:遗憾的是,我无法访问5.10+或可选组件.

可能重复:
使用Perl比较两个数组

我试图找到两个文件中常见的元素:下面是我的代码.请告诉我我在做什么错.

open IN,  "New_CLDB.txt"     or die "couldn't locate input file";
open IN1, "New_adherent.txt" or die "couldn't locate input file";
use Data::Dumper;
@array = ();
while (<IN>) {
    $line = $_;
    chomp $line;
    $a[$i] = $line;
    ++$i;
}
while (<IN1>) {
    $line1 = $_;
    chomp $line1;
    $b[$m] = $line1;
    ++$m;
}
for ( $k = 0; $k < $i; ++$k ) {
    for ( $f = 0; $f < $m; ++$f ) {
        if ( $a[$k] ne $b[$f] ) …