http://qs1969.pair.com?node_id=1142665


in reply to 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

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]

In Section Seekers of Perl Wisdom