如何減去數組/陣列減去數組的數組 - 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

回答