PERL高效代码摘录 - 数组

1. 2个数组找不同

,,,,,,);
,);
%seen=();
foreach(@a_hast_g){
;
}
@unique=grep($seen{$_},@a_cl_g);
 } map { $d{$_}++; $_ } @a_cl_g, @a_hast_g;
print @unique;