请问，如何出去重复的数组！

nfwolf

有数组如下：
my $test = ["abc", "def", "kkk", "llll"];
my $next = ["abc","def","kkk","llll"];
my $third = ["aaa", "bbb", "ccc", "ddd"];
my $forth = ["mmm", "ttt", "ggg"];
my $sixth = ["abc", "def", "kkk", "llll"];
my $fifth = ["mmm", "ttt", "ggg"];
my $eight = ["mmm", "ttt", "ffff"];
my $ninth = ["aaa", "bbb", "ccc", "ddd"];

我想去除相同的数组，拿到不同的数组！
例如以上数组，最终拿到如下集合：
$test， $third， $forth，$eight

多谢

小小稻草人

xxxxxx    if @test~~@test1

nfwolf

什么意思啊，不懂

2gua

原帖由 nfwolf 于 2010-1-16 11:57 发表
什么意思啊，不懂

Perl就是这么样，你得习惯它的模式。

nfwolf

真是无语了，不是我不理解，是perl无法理解，我执行
if @test~~@test1 {
print "OK\n" ;
}
结果告诉我语法错误

兰花仙子

用Array::Diff.
也可以借鉴ruby的做法，ruby对每个目标都内部计算一个hash值，比较2个目标是否相等时，对比其hash值即可。
当然还有其他做法。

wfnh

“~~”这个叫做智能匹配符···你说有语法错误··应该是你的perl版本不是5.10···这个是5.10才新加的·

mwm5

~~是智能匹配，没有错的。。
Learning perl 4 里头好像还没有，Learning perl 5版里头才加上的
你条件在前头少了括号，自然语法错误。。

if (@test~~@test1)

Perl_Er

这个都有了，我还没用过了

royalzhang

my $test = ["abc", "def", "kkk", "llll"]; my $next = ["abc","def","kkk","llll"]; my $third = ["aaa", "bbb", "ccc", "ddd"]; # et al ... my %dictionary; for(($test, $next, $third)){     my $key = join(',', @$_);     next if($dictionary{$key});     $dictionary{$key}=1;     print join(", ", @$_),"\n"; }