匹配perl中2个数组的相同位置的元素

Question

我有 2 个数组

 @a = qw/ A B C D E /;
    @b = qw/ B B C A /;

我需要检查相同的元素是否出现在每个数组的相同位置

例如 $a[2] = "B"; $b[3] = "C";

如果是这样，请计算这种情况发生的次数 它需要忽略任何空白元素

例如 $a[6] = ; $b[6] = ;

cmets 非常感谢我喜欢理解脚本。

我尝试过 intersect eq == cmp 等，但我不太明白，也不太确定

提前致谢。

到目前为止，这是我的代码：

#!/usr/bin/perl -w

my @a = <FILE1>;
my @b = <FILE2>;

$occurs = 0; #Using eq
foreach my $letter (@a) {
    if (my $letter2 (@a) eq $letter) { #Syntax error here
        $count ++;
    }
} #syntax error here

Answer 1

对于你所说的问题，我会使用这样的东西：

$happened += $a[$_] eq $b[$_] for 0 .. $#a;

要忽略空元素，您也可以检查 defined($a[$_]) 和 length($a[$_])。

然而，

qw/ B B C       A /

与qw/B B C A/ 相同，因此不引入空元素。此外，您的 same 元素示例在不同的位置显示了不同的元素。

Answer 2

这里blank的定义需要澄清一下。它是一个空字符串吗？ undefined 值？空格？

在下面的示例中，我假设任何没有非空白字符的元素为 blank，这显示了如何使用 each @array 构造来完成：

use strict;
use warnings;

my @a = ( 'A', 'B', 'C', 'D', 'E', ' ', ' ' );  # Can't use qw/ / 'cos
my @b = ( ' ', 'B', 'C', ' ', ' ', ' ', 'A' );  # it ignores whitespace

my %count;                                      # Store results in a hash

while ( my ( $index, $value ) = each @a ) { # Loop over index & value together

    my $otherValue = $b[$index];            # Get the other value in @b

    next unless $value =~ /\S/ and $otherValue =~ /\S/;  # Skip if 'blank'

    $count{$value}++ if $value eq $otherValue; # Increment counter for that value
}

print "$_ : $count{$_}\n" for keys %count;     # B : 1
                                               # C : 1

# Find out total

use List::Util 'sum';                          # No need to reinvent wheel
print "Sum : ", sum ( values %count ), "\n";   # Sum : 2