http://www.perlmonks.org?node_id=1055129


in reply to Re: Defining substring matches
in thread Defining substring matches

while( $seq =~ m[($re)]g ) {
    printf "Found: '$1' at '$id':%d\n", $-[0];
}

[download]

A question of idle (and perhaps rather trivial) curiosity: In the quoted code, you use  $-[0] "offset of the start of the last successful match" (see  @- in perlvar). My reflexive choice would have been  $-[1] since capture group 1 is being matched. There's no difference in the behavior of the code since capture group 1 is all that's matched, but was there a particular reason you chose as you did?

In Section Seekers of Perl Wisdom