in reply to A challenging problem in perl regular expression
How about:
which gives:$_='JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ'; print $_,$/; s/(.*?)(JAZZ)/('a'x length $1) . $2/ge; print
JAZZxxJAZZJAZZxxJAZJAZZxxJAZZ JAZZaaJAZZJAZZaaaaaJAZZaaJAZZ
--
I'd like to be able to assign to an luser
|
---|
In Section
Seekers of Perl Wisdom