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


Syntactic Confectionery Delight
	PerlMonks

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

by Anonymous Monk

on Sep 21, 2015 at 19:48 UTC ( #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

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://1142665]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others musing on the Monastery: (2)

As of 2023-10-02 05:14 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found

Notices^?