Re: reset named capture buffer within regex

in reply to reset named capture buffer within regex

Adding to what others have said already, I think this simple test probably proves it can't be done:

/(?<foo_match>foo)(??{undef $+{foo_match}})/
[download]

Result: modification of read-only value attempted.

This is in line with other regex-related variables (such as the current match position), which can't be altered mid-pattern.

You could do something equivalent using embedded code and setting a variable rather than using named capture. However, that might not be the best idea.

In my mind, when a pattern starts having this much internal logic, the correct way to solve the problem is usually by breaking it down into multiple steps. As cool as Perl's advanced regex features are to play around with, just because you can do it all in a regex doesn't mean you should.

When's the last time you used duct tape on a duct? --Larry Wall

Comment on Re: reset named capture buffer within regex Download Code

Replies are listed 'Best First'.
Re^2: reset named capture buffer within regex by tobyink (Canon) on Nov 23, 2012 at 11:53 UTC
`%+` and `%-` are "just" tied hashes which give access to the underlying named capture data buried away in the Perl core. Even if you were able to alter the hashes, there's no guarantee that it would effect the underlying data, so using `?(<mybuf>)` later on in the regular expression might give surprising results. `perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'`	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: reset named capture buffer within regex
by tobyink (Canon) on Nov 23, 2012 at 11:53 UTC

%+ and %- are "just" tied hashes which give access to the underlying named capture data buried away in the Perl core. Even if you were able to alter the hashes, there's no guarantee that it would effect the underlying data, so using ?(<mybuf>) later on in the regular expression might give surprising results.

perl -E'sub Monkey::do{say$_,for@_,do{($monkey=[caller(0)]->[3])=~s{::}{ }and$monkey}}"Monkey say"->Monkey::do'

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom