判斷兩組資料是否有重複

如果有兩組資料，需要判斷是否重複，怎樣快速給出結果呢？

思路：将資料賦給一個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;