如果有两组数据,需要判断是否重复,怎样快速给出结果呢?
思路:将数据赋给一个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;