判断两组数据是否有重复

如果有两组数据，需要判断是否重复，怎样快速给出结果呢？

思路：将数据赋给一个hash作为键，然后合并两个hash为新hash，再检查键的数量，看是否减少。

问题：如何把数组只赋给hash的键而其对应的值随意填充？用split函数。

 

1 # 判断两组数据是否有重复值

2 my @t1=("a",1,2,"d","f");

3 my @t2=("c",2,"f","g",3,"i","t");

4 my %t1=split(":",join("::",@t1));

5 my %t2=split(":",join("::",@t2));

6 my %t3=(%t1,%t2);

7 my $n1=@t1+@t2;

8 my $m1=keys %t3;

9 print $n1,"=?=",$m1;