我需要实现一个程序来计算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); }
您还可以使用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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。