如何比较行中2个数组的元素

Question

我有2个数组(@curNodes和@oldNodes),数组元素在行中.例如:

Output of print @curNodes   Output of print @oldNodes  
US                          London
UK                          US

现在我想的每个元素比较@curNodes有@oldNodes.例如,首先它会检查"US"中@oldNodes,如果是有别的什么也不做其他动作.

能否帮助我,让我知道元素是否排成一列,如何进行这种比较.

Answer 1

对于不需要任何外部模块的方法,如何将第一个数组转换为哈希值,然后迭代第二个数组呢？见下文.

use v5.012;
use warnings;

my @old_nodes = qw/ a b c d /;
my %old = map {; $_ => 1 } @old_nodes;

my @cur_nodes = qw/ a d /;

foreach (@cur_nodes) {
    if ($old{$_}) {
        say "$_ exists in old_nodes";
    }
}