regex – 计算一个字符串在另一个(Perl)中出现的次数,

计算某个字符串在较大的字符串中出现的次数的最快方法是什么？我最好的猜测是用无用的替换该字符串的所有实例，计算长度的差异和除以子串的长度，但是这看起来相当慢，我需要分析大量的数据。

解决方法

你可以捕获字符串，然后对它们进行计数。它可以通过应用列表上下文到捕获与()：

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;