如何从数组/数组中减去数组减去数组 - PERL

Question

我有类似下面的数组，我找不到好的解决方案让它起作用：

我的@a = qw（A A B C C D D）;

我的@b = qw（A B C C D）;

因此我想得到：@a - @b =（A D）

感谢您的帮助！

Answer 1

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

Answer 2

您可以在此处找到一些解释代码：http://www.perlmonks.org/?node_id=2461