# FAQ 4.43 How do I compute the difference of two arrays? How do I compute the intersection...

#### Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

comes with the standard Perl distribution. These postings aim to
reduce the number of repeated questions as well as allow the community
perlfaq is at http://faq.perl.org .

--------------------------------------------------------------------

4.43: How do I compute the difference of two arrays?  How do I compute the
intersection of two arrays?

Use a hash. Here's code to do both and more. It assumes that each
element is unique in a given array:

@union = @intersection = @difference = ();
%count = ();
foreach \$element (@array1, @array2) { \$count++ }
foreach \$element (keys %count) {
push @union, \$element;
push @{ \$count > 1 ? \@intersection : \@difference
}, \$element;
}

Note that this is the *symmetric difference*, that is, all elements in
either A or in B but not in both. Think of it as an xor operation.

--------------------------------------------------------------------

The perlfaq-workers, a group of volunteers, maintain the perlfaq. They
are not necessarily experts in every domain where Perl might show up,
so please include as much information as possible and relevant in any