如何从 Perl 中的两个数组中获取唯一元素

Question

我试图获取第一个数组中唯一元素的列表。 （又名：第一个数组中的元素不在第二个数组中。）但是我的脚本返回唯一元素的 number，而不是每个元素中的信息。

作为 Perl 的新手，我知道该语言有很多细微差别。我还没有看到我是如何得到一个数字而不是一个元素列表的。我看到的唯一研究是如何获得一些独特的元素，显然，我发现了另一种方法。

感谢任何帮助。下面是代码。

#!/usr/bin/perl

use strict;
use warnings;
use v5.10;

use XML:Simple;
use LWP::Simple;
use List::Compare;

my @upd = system ("perl test.pl | grep '*.x86_64.rpm'");
my @inst = system ("rpm -qa");

@inst = join( '.rpm', @inst);

my $ls = List::Compare->new( {lists=> [\@upd, \@inst]} );
my @list = $ls->get_unique;
@list = $ls->get_Lonly;

say "@list";

Answer 1

@upd 包含一个元素，即执行perl test.pl | grep '*.x86_64.rpm' 的shell 的退出状态。同样，@inst 包含一个元素，即退出状态rpm。也许您正试图捕获输出？使用反引号。

my @upd  = `perl test.pl | grep '*.x86_64.rpm'`;
chomp(@upd);

my @inst = `rpm -qa`;
chomp(@inst);

---

另外，以下是不正确的：

@inst = join( '.rpm', @inst);

应替换为以下内容：

$_ .= '.rpm' for @inst;

Answer 2

遍历列表并检查第二个列表中的每个元素，如果它不在整个第二个列表中，则将其推送（或执行任何操作）到新数组

#!/usr/bin/perl

use strict;
use warnings;
use v5.10;
my @upd = ('cat', 'dog','mouse', 'fatcatsrul');
my @inst = ('cat', 'dog', 'mouse');
my @unique_elements_in_upd;
foreach(@upd)
{
    my $key= $_;
    if(!($key ~~@inst))
    {
        push(@unique_elements_in_upd, $key);
        print $key . "\n";
    }
}

输出：fatcatsrul

看看这个 http://perlmaven.com/smart-matching-in-perl-5.10

还可以查看此比较 How fast is Perl's smartmatch operator when searching for a scalar in an array?