Czy mogę zmodyfikować dosłownego wyrażenie w Perlu 6?

Question

Załóżmy, że mamy regularny wzór fleksyjny, którego nie można podzielić na segmenty. Na przykład. może to być infiksacja (dodanie kilku liter wewnątrz słowa) lub zmiana samogłosek ("ablaut"). Rozważ przykład z języka niemieckiego.

my @words = <Vater Garten Nagel>; 
my $search = "/@words.join('|')/".EVAL; 

"mein Vater" ~~ $search;        
say $/; # ｢Vater｣ 

Wszystkie trzy niemieckie słowa mnoga zmieniając ich 2nd literę „A” do „a”. Tak więc "Vater" → "Väter", "Garten" → "Gärten", "Nagel" → "Nägel".

Czy istnieje sposób modyfikacji mojego wyrażenia regularnego $search, aby pasował do liczby mnogiej? Oto co szukam:

my $search_ä = $search.mymethod; 
"ihre Väter" ~~ $search_ä; 
say $/; # ｢Väter｣ 

Oczywiście, można zmodyfikować tablicę @words „i” precompile go do nowego regex. Ale byłoby lepiej (jeśli to możliwe) bezpośrednio zmodyfikować istniejący regex.

Answer 1

Nie możesz.

Regeksy są obiektami kodu w Perlu 6. Twoje pytanie brzmi: "Czy mogę zmodyfikować podprogramy lub metody po ich napisaniu?". Odpowiedź jest taka sama dla tradycyjnych obiektów kodu i dla wyrażeń regularnych: nie, napisz je, na co chcesz.

To powiedziawszy, w rzeczywistości nie potrzebujesz EVAL dla Twojego przypadku użycia. Podczas korzystania zmienną tablicową wewnątrz regex, to jest interpolowana jako lista alternatywnych gałęzi, więc można po prostu napisać:

my @words = <Vater Garten Nagel>; my $search = /@words/;

regex $search staje zamknięcie, więc jeśli zmodyfikować @words, można również zmień co pasuje do $search.

Innym podejściem do tego konkretnego przykładu byłoby użyć modyfikatora :ignoremark, co sprawia a również dopasować ä (choć także wiele innych form, takich jak ā lub ǎ.)