in reply to Difference between two arrays - is there a better way?
This one-liner (versus answers with hashes and inspired by another answer) is working for me but has not been very rigorously tested (as run on AS Perl 5.16.3):
@foo = (1, 2, 3, 4, 5, 6, 7, 8, 9, 10); @bar = (0, 1, 2, 5, 7, 9, 11, 12, 13, 14); my @diff = grep {my $baz = $_; ! grep($_ == $baz, @bar)} @foo; print join(",", @diff); Gives: 3,4,6,8,10
Switch the lists around in the nested greps to go from being "in foo but not also bar" to "in bar but not also foo".
-Simon
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Difference between two arrays - is there a better way?
by Anonymous Monk on Jan 05, 2015 at 09:36 UTC | |
by Anonymous Monk on May 12, 2016 at 18:54 UTC | |
by SimonSaysCake (Beadle) on Jun 28, 2016 at 17:42 UTC | |
Re^2: Difference between two arrays - is there a better way?
by Anonymous Monk on Nov 24, 2016 at 12:01 UTC | |
by Corion (Patriarch) on Nov 24, 2016 at 12:13 UTC |
In Section
Seekers of Perl Wisdom