我需要实现一个程序来计算perl中字符串中子字符串的出现次数.我已经实现了如下
sub countnmstr
{
$count =0;
$count++ while $_[0] =~ /$_[1]/g;
return $count;
}
$count = countnmstr("aaa","aa");
print "$count\n";
现在这就是我通常会做的事情.但是,在上面的实现中,我想计算’aaa’中’aa’的出现次数.在这里我得到答案为1这似乎是合理的,但我也需要考虑重叠的情况.因此,上述情况应该给出答案为2,因为如果我们考虑重叠,则有两个’aa’.
任何人都可以建议如何实现这样的功能？
解决方法
见
ysth’s answer ……我没有意识到模式可能只包含零宽度断言,仍然可以用于此目的.
您可以按照其他人的建议使用positive lookahead,并将函数编写为：
sub countnmstr {
my ($haystack,$needle) = @_;
my ($first,$rest) = $needle =~ /^(.)(.*)$/;
return scalar (() = $haystack =~ /(\Q$first\E(?=\Q$rest\E))/g);
}
#!/usr/bin/perl
use strict; use warnings;
sub countnmstr {
my ($haystack,$needle) = @_;
my $adj = length($needle) - 1;
die "Search string cannot be empty!" if $adj < 0;
my $count = 0;
while ( $haystack =~ /\Q$needle/g ) {
pos $haystack -= $adj;
$count += 1;
}
return $count;
}
print countnmstr("aaa","aa"),"\n";
输出：
C:\Temp> t 2