如何减去数组/阵列减去数组的数组 - PERL

我有一个像下面阵列，我不能找到很好的解决方案，使它的工作原理：如何减去数组/阵列减去数组的数组 - PERL

我@a = QW（A A B C C d d）;

my @b = qw（A B C C D）;

，因此我想获得：@a - @b =（A d）

感谢您的帮助！

2014-02-24 Lucas

你要找的伪代码，提示如何做到这一点，或者代码做呢？因为我们没有看到你已经投入了任何工作来获得解决方案。 – AntonH

代码或只是一个适当的命令。我试过了： my @ new = grep {not $ _ ~~ @B} @A; 以及从该命令： http://search.cpan.org/~zmij/Array-Utils-0.5/Utils.pm 但它不工作，我想看看 – Lucas

[这里]（http://stackoverflow.com/questions/4891898/how-to-subtract-an-array-from-an-array） – AntonH

my %b; 
++$b{$_} for @b; 
grep { --$b{$_} < 0 } @a

2014-02-24 13:49:17 ikegami

我试过这个，现在看起来很好！非常感谢您的帮助！ – Lucas

你可以找到一些代码的解释在这里：http://www.perlmonks.org/?node_id=2461

2014-02-24 16:10:00 Jeef

如果数组不止一次包含某些元素，则不起作用。 – mob

回答