Re: how do you use the index function on this example?

Ah, never mind, I found this solution:

while($string=~/(M+)/g)
{
    ($start, $end) = ($-[0], $+[0]);
    print $start."\t".$end."\n";
}
[download]

Thanks

Comment on Re: how do you use the index function on this example? Download Code

Replies are listed 'Best First'.
Re^2: how do you use the index function on this example? by AnomalousMonk (Archbishop) on Sep 21, 2015 at 22:12 UTC
And you don't even need the capturing parentheses: `c:\@Work\Perl>perl -wMstrict -le "my $string = 'IIIIMMMMMMMOOOOOOOOOOMMMMMMMMMMMMMMMIIIIIIMMMMOOOO'; ;; while ($string =~ /M+/g) { my ($start, $end) = ($-[0], $+[0]); print qq{start $start, end $end}; } " start 4, end 11 start 21, end 36 start 42, end 46` [download] Note that `@+` holds the positions of the first character after matched sub-strings! Give a man a fish: `<%-{-{-{-<`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: how do you use the index function on this example?
by AnomalousMonk (Archbishop) on Sep 21, 2015 at 22:12 UTC

And you don't even need the capturing parentheses:

c:\@Work\Perl>perl -wMstrict -le
"my $string = 'IIIIMMMMMMMOOOOOOOOOOMMMMMMMMMMMMMMMIIIIIIMMMMOOOO';
 ;;
 while ($string =~ /M+/g) {
   my ($start, $end) = ($-[0], $+[0]);
   print qq{start $start, end $end};
   }
"
start 4, end 11
start 21, end 36
start 42, end 46
[download]

@+

first character after

Give a man a fish: <%-{-{-{-<

[reply]
[d/l]
[select]