重复次数的统计

codeternity

大侠们，小弟现在有一个统计问题想请教。


假如现在有一组数据data1，其中的数据有重复，现在要根据data2中的数据来统计重复次数，

data1的内容如下：
1111
111
22
1111
113
23456
6784
6784
6784
6784
1111
1111
1111
23456
113
09002
09001
09002
003900
003900
2245
2245
123456


data2的内容如下：
003900
003901
003902
09000
09001
09002
111
1111
113
114
123456
22
223
2245
23456
6784
67849


根据data2来统计data1中每个数据重复的次数，结果如下：

003900:2
003901:0
003092:0
09000:0
09001:1
09002:2
111:1
1111:5
113:2
114:0
123456:1
22:1
223:0
2245:2
23456:2
6784:4
67849:0

想请各位帮帮忙，怎么解决这个问题呢？

huang6894

无非就是把第一个文件的每一行作为key建立哈希，value是该行的重复数，然后去匹配第二行，输出每一行的value或者0....

ghoull

1. #!/usr/bin/perl
   
2. 
   
3. use 5.010;
   
4. use strict;
   
5. use warnings;
   
6. 
   
7. my %hash;
   
8. while(<DATA>){
   
9.         chomp;
   
10.         $hash{$_}++;
    
11. }
    
12. 
    
13. foreach my $x (sort keys %hash) {
    
14.         say "$x~~~$hash{$x}";
    
15. }
    
16. __DATA__
    
17. 1111
    
18. 111
    
19. 22
    
20. 1111
    
21. 113
    
22. 23456
    
23. 6784
    
24. 6784
    
25. 6784
    
26. 6784
    
27. 1111
    
28. 1111
    
29. 1111
    
30. 23456
    
31. 113
    
32. 09002
    
33. 09001
    
34. 09002
    
35. 003900
    
36. 003900
    
37. 2245
    
38. 2245
    
39. 123456

复制代码

ghoull

回复 3# ghoull


   

codeternity

回复 3# ghoull
哦，原来是这样啊，受教了……谢谢啊……

   

codeternity

回复 2# huang6894
恩，谢谢大侠的提示，刚开始学这个……我还得好好努力呀
   

yestreenstars

回复 3# ghoull

貌似楼主要求把不存在的显示为0
   

yestreenstars

1. #!perl
   
2. use warnings;
   
3. use strict;
   
4. my %h;
   
5. open(F1, 'a') or die;
   
6. chomp and $h{$_}++ while <F1>;
   
7. close(F1);
   
8. open(F2, 'b') or die;
   
9. while(<F2>){
   
10.         chomp;
    
11.         printf "%s:%d\n", $_, $h{$_} || 0;
    
12. }
    
13. close(F2);

复制代码

mcshell

学习了~~~~~

codeternity

回复 8# yestreenstars
{:2_172:} 大侠看的好细致啊，对啊，我确实是还要把没有的显示为0……多谢