如何計算perl腳本每行中某些詞的出現？

Question

該文件包含幾行這樣的，

TT  AA  TT  GG  CC  AA 
    AA  GG  CC  TT  GG  CC 
    GG  AA  TT  TT  CC  TT 

Answer 1

像這樣的事情可能？

#!/usr/bin/env perl; 
use strict; 
use warnings; 

while (<DATA>) { 
    chomp; 
    my %count_of; 
    $count_of{$_}++ for split; 

    print "Row $.:\n"; 
    foreach my $key (sort {$count_of{$b} <=> $count_of{$a} } keys %count_of) { 
     print "\t$key: $count_of{$key}\n"; 
    } 
} 

__DATA__ 
    TT  AA  TT  GG  CC  AA 
    AA  GG  CC  TT  GG  CC 
    GG  AA  TT  TT  CC  TT