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

sedulous

UID: 5176
帖子: 198
积分: 455
在线时间: 2 天 5 小时

1^# sedulous 发表于 2008-06-26 06:22

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

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

小公猫

UID: 32634
帖子: 1
积分: 2
在线时间: 10 分钟

2^# 小公猫发表于 2008-06-26 10:14

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

ly5066113

UID: 41125
帖子: 34
积分: 78
在线时间: 1 小时

3^# ly5066113 发表于 2008-06-26 10:23

QUOTE:

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

[Copy to clipboard] [ - ]

CODE:

my @a=("a","b","c","d","e");
my @b=("b","g","f","e");

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;

redicaps

UID: 37436
帖子: 187
积分: 430
在线时间: 1 天 23 小时

4^# redicaps 发表于 2008-06-26 10:24

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

不死草

UID: 35536
帖子: 142
积分: 326
在线时间: 1 天 3 小时

5^# 不死草发表于 2008-06-27 08:32

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