Difference of Two Arrays Using Perl

by

Another way to do it is to use Array::Utils

use Array::Utils qw(:all);

my @a = qw( a b c d );
my @b = qw( c d e f );

# symmetric difference
my @diff = array_diff(@a, @b);

# intersection
my @isect = intersect(@a, @b);

# unique union
my @unique = unique(@a, @b);

# check if arrays contain same members
if ( !array_diff(@a, @b) ) {
        # do something
}

# get items from array @a that are not in array @b
my @minus = array_minus( @a, @b );

More Related Contents:

  1. How do I remove duplicate items from an array in Perl?
  2. How can I check if a Perl array contains a particular value?
  3. How can I generate all permutations of an array in Perl?
  4. In Perl, how can I find the index of a given value in an array?
  5. How can I verify that a value is present in an array (list) in Perl?
  6. How do I print unique elements in Perl array?
  7. If condition based look up not working [closed]
  8. Convert Bash script to Perl/VBS/any other windows compatible language [closed]
  9. Redirecting the perl script
  10. How can I troubleshoot my Perl CGI script?
  11. How is Perl’s @INC constructed? (aka What are all the ways of affecting where Perl modules are searched for?)
  12. How can I install Perl modules without root privileges?
  13. Specifying file to process to Perl one-liner
  14. How do I run a Perl script from within a Perl script?
  15. Perl flags -pe, -pi, -p, -w, -d, -i, -t?
  16. What pseudo-operators exist in Perl 5?
  17. How does double arrow (=>) operator work in Perl?
  18. Store and read hash and array in files in Perl
  19. Why are Perl source filters bad and when is it OK to use them?
  20. Perl 5.20 and the fate of smart matching and given-when
  21. How can I convert the stringified version of array reference to actual array reference in Perl?
  22. How does Perl parse unquoted bare words?
  23. How can I interact with ClearCase from Perl?
  24. Perl build, unit testing, code coverage: A complete working example
  25. How do I convert a date/time to epoch time (unix time/seconds since 1970) in Perl?
  26. In Perl, how do I change, delete, or insert a line in a file, or append to the beginning of a file?
  27. How can I run a system command in Perl asynchronously?
  28. How can I extract text from a PDF file in Perl?
  29. Local and Global variables in perl
  30. How do I retrieve the terminal width in Perl?

Leave a Comment