寻找perl中两个数组里面相同的元素

sedulous

有没有简单的办法比较两个数组，得到一个含有共同拥有的元素的数组？不想一个一个比较。
谢谢！在线等！

小公猫

不一个一个比怎么办？
两个数组的元素排列有规律吗？

ly5066113

原帖由 duhast 于 2008-1-25 23:14 发表

1. my @a=("a","b","c","d","e");
   
2. my @b=("b","g","f","e");
   
3. 
   
4. my %a=map{$_=>1} @a;
   
5. my %b=map{$_=>1} @b;
   
6. 
   
7. # 交集
   
8. @A = grep( $a{$_}, @b ) ;
   
9. 
   
10. # 补集
    
11. @B1=grep(!defined $a{$_}, @b);
    
12. @B2=grep(!defined $b{$_}, @a);
    
13. 
    
14. # 并集
    
15. %C=map {$_=>1} @a,@b;
    
16. @C=keys %C;

复制代码

redicaps

http://search.cpan.org/~davecros ... ib/Array/Compare.pm

不死草

呵呵，楼主的意思是不是不想用for循环啊，不逐项比较是不可能的，这个只是表示的形式不一样而已。。。