比如:ABBAB
A出现的位置向量是(1,4)AB出现的位置是(1,4)
ABB出现的位置是(1)
perl中如何求解一个chars出现的位置向量?
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
1条回答
- cdzwm 2015-07-02 08:38关注
my $s='ABBAB';
my $l=length $s;
my $off=0;
my $substr = 'BB';for my $i(0..$l-1){
my $p = index $s, $substr, $off;
if($p<0){
last;
}
$off = $p+1;
print "$off $p\n";
}解决 无用评论 打赏 举报