przechwytywania ciąg zamiennik regex

Question

Z tego co mogę zebrać z dokumentacji Pharo na regex, mogę określić regularny obiekt określenia takie jak:

re := '(foo|re)bar' asRegex 

I mogę zastąpić dopasowany regex z ciągiem przez to:

re copy: 'foobar blah rebar' replacingMatchesWith: 'meh' 

Co spowoduje: `` meh bla meh '.

Jak dotąd, tak dobrze. Ale chcę zastąpić 'bar' i zostawić prefiks sam. Dlatego muszę zmienną obsłużyć przechwycony nawiasach:

re copy: 'foobar blah rebar' replacingMatchesWith: '%1meh' 

I chcę wynik: 'foomeh blah remeh'. Jednak to tylko daje mi: '%1meh blah %1meh'. Próbowałem również użyć \1 lub \\1 lub $1 lubi otrzymałem dosłowny zamiennik ciągu, np. ., '\1meh blah \1meh' w wyniku.

mogę to zrobić dość łatwo w Smalltalk GNU z:

'foobar blah rebar' replacingAllRegex: '(foo|re)bar' with: '%1meh' 

Ale nie mogę znaleźć nigdzie w dokumentacji regex Pharo, który mówi mi, jak mogę to zrobić w Pharo. Zrobiłem też sporo wyszukując dla regexu Pharo, ale niczego nie odkryłem. Czy ta funkcja jest częścią klasy RxMatcher lub innej klasy regex Pharo?

Answer 1

Po eksperymentach trochę z klasą RxMatcher, zrobiłem następującą modyfikację do selektora RxMatcher#copyStream:to:replacingMatchesWith::

copyStream: aStream to: writeStream replacingMatchesWith: aString 
    "Copy the contents of <aStream> on the <writeStream>, 
    except for the matches. Replace each match with <aString>." 

    | searchStart matchStart matchEnd | 
    stream := aStream. 
    markerPositions := nil. 
    [searchStart := aStream position. 
    self proceedSearchingStream: aStream] whileTrue: [ | ws rep | 
     matchStart := (self subBeginning: 1) first. 
     matchEnd := (self subEnd: 1) first. 
     aStream position: searchStart. 
     searchStart to: matchStart - 1 do: 
      [:ignoredPos | writeStream nextPut: aStream next]. 

     "------- The following lines replaced: writeStream nextPutAll: aString ------" 
     "Do the regex replacement including lookback substitutions" 
     writeStream nextPutAll: (aString format: self subexpressionStrings). 
     "-------" 

     aStream position: matchEnd. 
     "Be extra careful about successful matches which consume no input. 
     After those, make sure to advance or finish if already at end." 
     matchEnd = searchStart ifTrue: 
      [aStream atEnd 
       ifTrue: [^self "rest after end of whileTrue: block is a no-op if atEnd"] 
       ifFalse: [writeStream nextPut: aStream next]]]. 
    aStream position: searchStart. 
    [aStream atEnd] whileFalse: [writeStream nextPut: aStream next] 

A potem „dostępu” Kategoria:

subexpressionStrings 
    "Create an array of lookback strings" 
    | ws | 
    ws := Array new writeStream. 
    2 to: (self subexpressionCount) do: [ :n | | se | 
     ws nextPut: ((se := self subexpression: n) ifNil: [ '' ] ifNotNil: [ se ]) ]. 
    ^ws contents. 

Po wprowadzeniu tej modyfikacji mogę powtórzyć ciąg zastępczy za pomocą wzoru Smalltalk String#format: dla argumentów:

re := '((foo|re)ba(r|m))' asRegex 
re copy: 'foobar meh rebam' replacingMatchesWith: '{2}bu{3} (was {1})' 

Wyniki w:

'foobur (was foobar) meh rebum (was rebam)' 

Answer 2

Czy sprawdziłeś pomoc Regex? Nie ma #replacingAllRegex:, ale dopasowujący ma #subexpression: