2 jinmengzhe1 jinmengzhe1 于 2013.11.18 21:26 提问

perl中如何求解一个chars出现的位置向量?

比如:ABBAB
A出现的位置向量是(1,4)AB出现的位置是(1,4)
ABB出现的位置是(1)

1个回答

cdzwm
cdzwm   2015.07.02 16: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";
}

Csdn user default icon
上传中...
上传图片
插入图片
准确详细的回答,更有利于被提问者采纳,从而获得C币。复制、灌水、广告等回答会被删除,是时候展现真正的技术了!