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


Perl-Sensitive Sunglasses
	PerlMonks

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

by Anonymous Monk

on Sep 21, 2015 at 19:48 UTC ( [id://1142665]=note: print w/replies, xml )

Need Help??

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

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]

@+

first character after

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom