如何计算Perl中重叠的子串？

发布时间：2020-12-15 21:16:38 所属栏目：大数据来源：网络整理

导读：我需要实现一个程序来计算perl中字符串中子字符串的出现次数.我已经实现了如下 sub countnmstr{ $count =0; $count++ while $_[0] =~ /$_[1]/g; return $count;}$count = countnmstr("aaa","aa");print "$countn"; 现在这就是我通常会做的事情.但是,在上面

我需要实现一个程序来计算perl中字符串中子字符串的出现次数.我已经实现了如下

sub countnmstr
{
  $count =0;
  $count++ while $_[0] =~ /$_[1]/g;
  return $count;
}

$count = countnmstr("aaa","aa");

print "$countn";

现在这就是我通常会做的事情.但是,在上面的实现中,我想计算’aaa’中’aa’的出现次数.在这里我得到答案为1这似乎是合理的,但我也需要考虑重叠的情况.因此,上述情况应该给出答案为2,因为如果我们考虑重叠,则有两个’aa’.

任何人都可以建议如何实现这样的功能？

解决方法

见 ysth’s answer ……我没有意识到模式可能只包含零宽度断言,仍然可以用于此目的.

您可以按照其他人的建议使用positive lookahead,并将函数编写为：

sub countnmstr {
    my ($haystack,$needle) = @_;
    my ($first,$rest) = $needle =~ /^(.)(.*)$/;
    return scalar (() = $haystack =~ /(Q$firstE(?=Q$restE))/g);
}

您还可以使用pos调整下一次搜索的位置：

#!/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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!