...其他功能,很好用:
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 ( !arr...