判断两组数据是否有重复

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

思路：将数据赋给一个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;