Tôi có thể sửa đổi regex bằng chữ trong Perl 6 không?

Question

Giả sử chúng ta có mẫu uốn đều đặn, không thể chia thành các đoạn. Ví dụ. nó có thể được trộn (thêm một số chữ cái bên trong từ) hoặc thay đổi nguyên âm ('ablaut'). Hãy xem xét một ví dụ từ tiếng Đức.

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

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

Tất cả ba chữ Đức thành số nhiều bằng cách thay đổi thư thứ 2 của họ 'a' đến 'a'. Vì vậy, 'Vater' → 'Väter', 'Garten' → 'Gärten', 'Nagel' → 'Nägel'.

Có cách nào để sửa đổi regex $search của mình để nó có khớp với các dạng số nhiều không? Dưới đây là những gì tôi đang tìm kiếm:

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

Tất nhiên, tôi có thể thay đổi @words mảng và 'tiền biên dịch' nó thành một mới regex. Nhưng nó sẽ tốt hơn (nếu có thể) để sửa đổi trực tiếp regex hiện tại.

Answer 1

Bạn không thể.

Regexes là đối tượng mã trong Perl 6. Vì vậy, câu hỏi của bạn về cơ bản là "Tôi có thể sửa đổi chương trình con hoặc phương thức sau khi đã viết chúng không?". Và câu trả lời là giống nhau đối với các đối tượng mã truyền thống và đối với các regex: không, hãy viết chúng theo ý muốn của bạn ngay từ đầu.

Điều đó nói rằng, bạn không thực sự cần EVAL cho trường hợp sử dụng của mình. Khi bạn sử dụng một biến mảng bên trong một regex, nó được nội suy như một danh sách các chi nhánh khác, vì vậy bạn chỉ có thể viết:

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

Các regex $search trở thành một đóng cửa, vì vậy nếu bạn sửa đổi @words, bạn cũng thay đổi những gì phù hợp với $search.

Một cách tiếp cận để ví dụ cụ thể này sẽ được sử dụng :ignoremark sửa đổi, mà làm cho a cũng phù hợp ä (mặc dù cũng có rất nhiều hình thức khác, chẳng hạn như ā hoặc ǎ.)