別の文字列（Perl）内の文字列の出現回数をカウントする

Question

特定の文字列が大きな文字列に表示される回数を最も速くカウントする方法は何ですか？私の最高の推測は、その文字列のすべてのインスタンスを何も置き換えずに、長さの差を計算し、部分文字列の長さで除算することですが、それはむしろ遅いと思われ、大量のデータを分析する必要があります。

Answer 1

文字列をキャプチャして数えます。それは()でキャプチャにリストコンテキストを適用することによって行うことができる。

my $x = "foo"; 
my $y = "foo foo foo bar"; 
my $c =() = $y =~ /$x/g; # $c is now 3 

あなたはまた、アレイにキャプチャし、配列を数えることができます。同じ原理、異なる技術：

my @c = $y =~ /$x/g; 
my $count = @c; 

Answer 2

グローバル正規表現を使用できます。次のようなものがあります。

my @matches = $bigstring =~ /($littlestring)/g; 
my $count = @matches; 

Answer 3

my $string = "aaaabbabbba"; 
my @count = ($string =~ /a/g); 
print @count . "\n"; 

または

my $count = ($string =~ s/a/a/g); 

Answer 4

あなたが繰り返しループ内でINDEX関数を呼び出し、それがでサブストリングのインデックスを返されたすべての回を数えることができるだけで、完全を期すために文字列、および開始位置を変更します。それは正規表現の使用を避け、私のテストでは正規表現の解決法より少し速いです。

私はここからそれを行うためのサブ適応してきました：http://www.misc-perl-info.com/perl-index.html

sub occurrences { 

    my($x, $y) = @_; 

    my $pos = 0; 
    my $matches = 0; 

    while (1) { 
     $pos = index($y, $x, $pos); 
     last if($pos < 0); 
     $matches++; 
     $pos++; 
    } 

    return $matches; 
}