perl 两个数组的交集、补集、并集

my @a=(1,2,3,4,5,6,7);
my @b=(3,5,6,7);
my %a=map{$_=>1} @a;
my %b=map{$_=>1} @b;

#交集
@A=grep($a{$_},@b);

#补集
@B1=grep(!defined $a{$_},@b);
@B2=grep(!defined $b{$_},@a);

#并集

%c=map{$_=>1} @a,@b;
@c=keys %c;