Re: Match string in array

[chester]

The easy way...

use warnings;
use strict;

use Set::Array;

my $array1 = Set::Array->new('one','red','orange','brown','green','blu
+e','scarlett','fourteen');
my $array2 = Set::Array->new('red','orange','yellow','green','blue','i
+ndigo','violet');

print "In array1, not in array2:\n";
print join "\n", $array1->difference($array2), "\n";
print "In array2, not in array1:\n";
print join "\n", $array2->difference($array1), "\n";

Output:

In array1, not in array2:
fourteen
one
brown
scarlett

In array2, not in array1:
violet
indigo
yellow