Re: Combining arrays with grep/unless?

[dorko]

in reply to Combining arrays with grep/unless?

List::Compare was built for working with two, three or more arrays at once.

use List::Compare;

my @Llist = ('A','B','C','D','E');
my @Rlist = (            'D','E','F','G','H','I','J');

my $lc = List::Compare->new(\@Llist, \@Rlist);

# If I read your post correctly,
# this is what you want.
my @LorRonly = $lc->get_symmetric_difference;
print join ", ", @LorRonly;

# Also does...
my @intersection = $lc->get_intersection;
my @union        = $lc->get_union;

# And much, much more.

Output:

A, B, C, F, G, H, I, J

Cheers,

Brent