in reply to Match string in array
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
|
---|
In Section
Seekers of Perl Wisdom