判断两组数据是否有重复

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

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

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

 

# 判断两组数据是否有重复值
my @t1=("a",1,2,"d","f");
my @t2=("c",2,"f","g",3,"i","t");
my %t1=split(":",join("::",@t1));
my %t2=split(":",join("::",@t2));
my %t3=(%t1,%t2);
my $n1=@t1+@t2;
my $m1=keys %t3;
print $n1,"=?=",$m1;