Đếm số lần xuất hiện của một chuỗi trong một chuỗi khác (Perl)

Question

Cách nhanh nhất để đếm số lần một chuỗi nhất định xuất hiện trong một chuỗi lớn hơn là gì? Dự đoán tốt nhất của tôi là thay thế tất cả các trường hợp của chuỗi đó bằng không, tính toán độ dài của độ dài và chia cho độ dài của chuỗi con, nhưng điều đó có vẻ khá chậm và tôi cần phân tích một lượng lớn dữ liệu.

Answer 1

Bạn có thể nắm bắt các chuỗi, sau đó đếm chúng. Nó có thể được thực hiện bằng cách áp dụng một bối cảnh danh sách để chụp với ():

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

Bạn cũng có thể chụp đến một mảng và đếm mảng. Cùng nguyên tắc, kỹ thuật khác nhau:

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

Answer 2

Bạn có thể sử dụng regex chung. Một cái gì đó như:

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

Answer 3

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

hoặc

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

Answer 4

Chỉ cần cho đầy đủ bạn liên tục có thể gọi hàm chỉ mục trong một vòng lặp và đếm tất cả các lần nó trở lại chỉ số của chuỗi con trong chuỗi và thay đổi vị trí bắt đầu. Điều đó sẽ tránh sử dụng regexes, và trong thử nghiệm của tôi là nhanh hơn một chút so với các giải pháp regex.

Tôi đã thích nghi một tiểu để làm điều đó từ đây: 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; 
}