Using perl Syntax Highlighting
my $string = "N" x 2500;
my $start = 1000;
my $end = 1500;
my $desp = $end-$start;
substr ($string,$start,$desp) =~ s/N/B/ig;
while ($string =~ m/B+/ig) {
my $longitud = length $&;
my $slongitud = length $string;
my $posi = pos $string;
my $posf = $posi + $longitud;
print "$posi\t$posf\t$longitud\t$slongitud\n";
}
my $start = 1000;
my $end = 1500;
my $desp = $end-$start;
substr ($string,$start,$desp) =~ s/N/B/ig;
while ($string =~ m/B+/ig) {
my $longitud = length $&;
my $slongitud = length $string;
my $posi = pos $string;
my $posf = $posi + $longitud;
print "$posi\t$posf\t$longitud\t$slongitud\n";
}
Coloreado en 0.003 segundos, usando GeSHi 1.0.8.4
El printeo en pantalla es: 1500 2000 500 2500
Es decir, mueve el inicio del substring un número de posiciones igual al desplazamiento.