Finding match offsets of named captures in 5.10 regex

nobull has asked for the wisdom of the Perl Monks concerning the following question:

The special variables @- and @+ can give me the start and end offsets of regex captures by number. In 5.10 we can now have named captures but %- and %+ contain the actual strings matched not the offsets.

Is there any way to get the offsets from the capture names? Alternatively is there a way to convert the capture names into numbers that can be used to subscript the arrays?

The following code maps names to numbers if the regex contains only named captures but falls apart if there are named ones too.

sub named_capture_map {
    my %n;
    @n{re::regnames(1)} = (1 .. $#+);
    \%n;
}
[download]

Is there a way of doing this that still works for regex with a mixture of named and unnamed captures?

Comment on Finding match offsets of named captures in 5.10 regex Select or Download Code

Replies are listed 'Best First'.
Re: Finding match offsets of named captures in 5.10 regex by JavaFan (Canon) on Sep 27, 2008 at 21:11 UTC
Every named capture is numbered as well. So if you have a capture called 'foo', and it's the third capture, you find the offsets in `$- [2]` and `$+ [2]`. There isn't a hash with the indexes.	[reply] [d/l] [select]
Re^2: Finding match offsets of named captures in 5.10 regex by JadeNB (Chaplain) on Sep 28, 2008 at 18:40 UTC
It seems that the whole point of using named captures is not wanting to have to keep track of the position of those captures, so maybe this way of getting at it isn't so useful. Is there any programmatic way to translate from named captures to the corresponding numbers?	[reply]
Re: Finding match offsets of named captures in 5.10 regex by Anonymous Monk on Mar 03, 2010 at 18:21 UTC
Obviously not a universal solution, but may be insertion of a (?{ code }) block could be helpful: `$_ = 'I am sample'; while (m/(?<be>am)(?{say pos})/ig) { say $+{be}; }` [download]	[reply] [d/l]
Re: Finding match offsets of named captures in 5.10 regex by LanX (Cardinal) on Jan 30, 2013 at 09:30 UTC
> The following code maps names to numbers if the regex contains only named captures but falls apart if there are named ones too. > `@n{re::regnames(1)} = (1 .. $#+);` No sorry thats wrong, the names come in the wrong order. `DB<108> '1234' =~ /(?<C>1)(?<D>2)(?<B>3)(?<A>4)/;re::regnames(1) => ("A", "D", "C", "B")` [download] Cheers Rolf	[reply] [d/l] [select]


Clear questions and runnable code get the best and fastest answer
	PerlMonks