計算perl中每個行位置每個字符的出現次數

Question

與問題 unix - count occurrences of character per line/field 類似，但對於行上每個位置上的每個字符。

每1E7線鑑於〜的文件500的字符， 我想的二維摘要結構等 $摘要{ 'A'， 'B'， 'C'， '0'， '1'，」 2'} [pos 0..499] = count_integer 它顯示每個字符在每行中的使用次數。任何一個維度的順序都很好。

我的第一種方法那樣++摘要{炭} [POS]在閱讀，但 因爲許多線是相同的，它 快得多計數相同的行第一， 然後總結總結{炭} [POS] + = n一次

是否有更多的慣用或更快的方式比以下C型二維循環？

#!perl 
my (%summary, %counthash); # perl 5.8.9 

sub method1 { 
    print "method1\n"; 
    while (<DATA>) { 
     my @c = split(// , $_); 
     ++$summary{ $c[$_] }[$_] foreach (0 .. $#c); 
    } # wend 
} ## end sub method1 

sub method2 { 
    print "method2\n"; 
    ++$counthash{$_} while (<DATA>); # slurpsum the whole file 

    foreach my $str (keys %counthash) { 
     my $n = $counthash{$str}; 
     my @c = split(//, $str); 
     $summary{ $c[$_] }[$_] += $n foreach (0 .. $#c); 
    } #rof my $str 
} ## end sub method2 

# MAINLINE 
if (rand() > 0.5) { &method1 } else { &method2 } 
print "char $_ : @{$summary{$_}} \n" foreach ('a', 'b'); 
# both methods have this output summary 
# char a : 3 3 2 2 3 
# char b : 2 2 3 3 2 
__DATA__ 
aaaaa 
bbbbb 
aabba 
bbbbb 
aaaaa 

Answer 1

根據網站資料的方法2形成可能是有點快於或慢的方法1.

但一個很大的區別是使用解壓，而不是分裂。

use strict; 
use warnings; 
my (%summary, %counthash); # perl 5.8.9 

sub method1 { 
    print "method1\n"; 
    my @l= <DATA>; 
    for my $t(1..1000000) { 
     foreach (@l) { 
      my @c = split(// , $_); 
      ++$summary{ $c[$_] }[$_] foreach (0 .. $#c); 
     }  
    } # wend 
} ## end sub method1 

sub method2 { 
    print "method2\n"; 
    ++$counthash{$_} while (<DATA>); # slurpsum the whole file 
    for my $t(1..1000000) { 
     foreach my $str (keys %counthash) { 
      my $n = $counthash{$str}; 
      my $i = 0; 
      $summary{ $_ }[$i++] += $n foreach (unpack("c*",$str)); 
     }  
    } 
} ## end sub method2 

# MAINLINE 
#method1(); 
method2(); 
print "char $_ : ". join (" ", @{$summary{ord($_)}}). " \n" 
    foreach ('a', 'b'); 
# both methods have this output summary 
# char a : 3 3 2 2 3 
# char b : 2 2 3 3 2 
__DATA__ 
aaaaa 
bbbbb 
aabba 
bbbbb 
aaaaa 

運行速度更快。 （而不是我的個人電腦上的7.x秒）