哈哈,不要嫌分少哈,求助一个哈希问题

lockeyou

txt1.txt
wsctcallngifdl01.dns.iqiyi.com  220.181.115.202 220.181.184.118 220.181.184.154 220.181.184.178 220.181.115.201
data.flurry.com  216.52.203.13
newloc.map.n.shifen.com  115.239.210.78
mobads.e.shifen.com  180.149.131.25
mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.195
mobads-logs.baidu.com  220.181.112.82 111.13.100.173
mobads-logs.baidu.com  220.181.112.82 111.13.100.173
mobads-logs.baidu.com  111.13.100.173  220.181.112.82 123.125.114.195
mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.196
txt2.txt
wsctcallngifdl01.dns.iqiyi.com  220.181.115.202 220.181.184.118 220.181.184.154 220.181.184.178 220.181.115.219 220.181.115.203
data.flurry.com  216.52.203.13
newloc.map.n.shifen.com  115.239.210.78
mobads.e.shifen.com  180.149.131.25
mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.195
mobads-logs.baidu.com  220.181.112.82 111.13.100.173
mobads-logs.baidu.com  220.181.112.82 111.13.100.173
mobads-logs.baidu.com  111.13.100.173  220.181.112.82 123.125.114.195

想要生成字典
dict.txt
wsctcallngifdl01.dns.iqiyi.com  220.181.115.202 220.181.184.118 220.181.184.154 220.181.184.178 220.181.115.201 220.181.115.219 220.181.115.203
data.flurry.com  216.52.203.13
newloc.map.n.shifen.com  115.239.210.78
mobads.e.shifen.com  180.149.131.25
mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.195 123.125.114.196

其实我的想法是把每个txt做成一个哈希
前面第一列域名作为key ,的地址做value
然后value又重复的不计,没有的在后面累加就好
不过我现在能做的只有是根据模块
use List::MoreUtils qw/ uniq /;

先把两个文件写成一个文件
然后存成数组,每一行作为一个元素进行去重复,但是这样的话元素如果位置不一样或者元素里面个数不一样就不能合并
希望大牛指点

huang6894

update 一个 @pitonas 大神给的代码~
我总算明白怎么老觉得自己写的不自然了，小伙伴们赶紧get起来~

1. #!/usr/bin/perl
   
2. 
   
3. my %dic;
   
4. while (<DATA>) {
   
5.     my ( $k, @v ) = split;
   
6.     $dic{$k}{$_} = 1 for @v;
   
7. }
   
8. 
   
9. while ( my ( $k, $v ) = each %dic ) {
   
10.     print join( $", $k, keys %$v ), $/;
    
11. }
    
12. 
    
13. __DATA__
    
14. wsctcallngifdl01.dns.iqiyi.com  220.181.115.202 220.181.184.118 220.181.184.154 220.181.184.178 220.181.115.201
    
15. data.flurry.com  216.52.203.13
    
16. newloc.map.n.shifen.com  115.239.210.78
    
17. mobads.e.shifen.com  180.149.131.25
    
18. mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.195
    
19. mobads-logs.baidu.com  220.181.112.82 111.13.100.173
    
20. mobads-logs.baidu.com  220.181.112.82 111.13.100.173
    
21. mobads-logs.baidu.com  111.13.100.173  220.181.112.82 123.125.114.195
    
22. mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.196
    
23. txt2.txt
    
24. wsctcallngifdl01.dns.iqiyi.com  220.181.115.202 220.181.184.118 220.181.184.154 220.181.184.178 220.181.115.219 220.181.115.203
    
25. data.flurry.com  216.52.203.13
    
26. newloc.map.n.shifen.com  115.239.210.78
    
27. mobads.e.shifen.com  180.149.131.25
    
28. mobads-logs.baidu.com  220.181.112.82 111.13.100.173 123.125.114.195
    
29. mobads-logs.baidu.com  220.181.112.82 111.13.100.173
    
30. mobads-logs.baidu.com  220.181.112.82 111.13.100.173
    
31. mobads-logs.baidu.com  111.13.100.173  220.181.112.82 123.125.114.195

复制代码

q1208c

1. hash{$str}{$IP} = 1
   
2. 
   
3. for h (keys %hash) {
   
4.    print "$h "
   
5.    for IP (keys %$hash{$h}) {
   
6.       print "$IP, "
   
7.    }
   
8.    print "\n"
   
9. }
   

复制代码

huang6894

哥~一个key只能对应一个value。你应该拿IP做key，域名作value

lockeyou

回复 2# q1208c

hash{$str}{$IP} = 1 #这个1代表什么,代表txt文件？
for h (keys %hash) { #还有不理解的就是这个h了,方便的话求解
   print "$h "
   for IP (keys %$hash{$h}) {
          print "$IP, "
   }
   print "\n"
}


   

q1208c

回复 4# lockeyou

"1" 是随便给了一个值. 没什么特别的意思.

h是 for 循环的 值是 是 keys %hash 中的 每个key .


意思就是每个域名为第一层的KEY, 每个IP为第二层的KEY. 这样, 就可以解决 域名 和 IP 重复的问题了.

lockeyou

回复 6# huang6894


    你的小羊驼真的很厉害呀,哈哈不错不错

lockeyou

回复 2# huang6894
虽然新技能,但是感觉还到不了那一步,还是看你的代码好受点