计算一个字符串在另一个字符串中出现的次数 (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;