两列数据统计重复出现次数

清泉一边

为什么找不到写代码的<>了呢
   

清泉一边

我觉得大神的这种写法首先要确定按第一列排序，斗胆给大神的代码加了一步排序

1. #!/usr/bin/perl
   
2. my @sort = map {$_->[0]}
   
3.             sort {$a->[1] cmp $b->[1]}
   
4.             map {[$_,split]}<DATA>;
   
5. my @foxtable;
   
6. my $V = 0;
   
7. for my $sort (@sort) {
   
8.     my ( $A, $B ) = split /\s+/,$sort;
   
9.     if($V ne $A){
   
10.     $V = $A;
    
11.     push @foxtable, [ {}, $V, $B ];
    
12.     }
    
13.     else{
    
14.       push @{ $foxtable[-1] }, $B;
    
15. #      $foxtable[-1][0]{$B}++;
    
16.     }
    
17.     $foxtable[-1][0]{$B}++;
    
18. }
    
19. for (@foxtable) {
    
20.     my ( $fox, $tab, @le ) = @$_;
    
21.     my ($it) = sort { $b <=> $a } values %$fox;
    
22.     my $that = join ',', sort grep $fox->{$_} == $it, keys %$fox;
    
23.     print map join( "\t", $tab, $_, $fox->{$_}, $that ) . $/ ,sort @le;
    
24. }
    
25. 
    
26. __DATA__
    
27. A01     A
    
28. A01     C
    
29. A01     C
    
30. A01     C
    
31. A01     B
    
32. A01     A
    
33. A01     C
    
34. A02     D
    
35. A02     D
    
36. A02     B
    
37. A02     B
    
38. A02     A
    
39. A03     A
    
40. A03     D
    
41. A03     B

复制代码

回复 6# rubyish