my %b;
++$b{$_} for @b;
grep { --$b{$_} < 0 } @a
How to subtract an array from an array / Array minus Array - PERL
-
15-10-2022 - |
Pregunta
I have arrays like below and I can't find good solutions to make it works:
my @a = qw( A A B C C D D );
my @b = qw( A B C C D );
and as a result I would like to get: @a - @b = (A D)
Thanks for help!
Solución
Otros consejos
You can find some code an explanation here: http://www.perlmonks.org/?node_id=2461
Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow