PERL提取文本

ymhui520

a         1
a         1
c         1
d         2
a         2
d         2

以上是文件內(nèi)容

怎么樣提取也 1里面有幾個A  有幾個C,
                   2里面有幾個D  或是 a

新手求教! 感激不盡!

kk861123

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. 
   
5. my %hash;
   
6. while (<DATA>) {
   
7.     if (/(\S+)\s+(\S+)/) {
   
8.         $hash{$2}{$1}++;
   
9.     }
   
10. }
    
11. 
    
12. for my $k1 (sort keys %hash) {
    
13.     for my $k2 (sort keys %{ $hash{$k1} }) {
    
14.         print "$k1 => $k2 => $hash{$k1}{$k2}\n";
    
15.     }
    
16. }
    
17. __DATA__
    
18. a         1
    
19. a         1
    
20. c         1
    
21. d         2
    
22. a         2
    
23. d         2
    

復(fù)制代碼