Регулярные выражения для изменения слова с определенным условием в perl

Question

Я пытаюсь написать регулярное выражение, которое изменит суффикс -ecek на -icek, если глагол имеет -e -i букв в расине. Например, для «gelecek» я хочу получить «gelicek». До сих пор у меня есть это:

$phone46=~s/(e|i)ecek/icek/g; 

Я не хочу сказать, е или я с последующим ecek, но я хочу сказать, е, я следую любым буквы, + ecek. Как я могу улучшить (e | i) часть, чтобы показать, что за ними может следовать любой символ?

Спасибо за вашу помощь

Answer 1

Не уверен, что я хорошо понимаю ваши потребности, но как насчет:

$phone46 =~ s/([ei][a-z]*)ecek/$1icek/g; 

Это заменит ecek на icek, когда есть e,i followed by any letters перед тем ecek

Answer 2

Я думаю, что вы можете пойти примерно на следующее:

s/([ei][[:alpha:]]*)ecek\b/$1icek/g 

Это соответствует e или i, за которым следует любое количество буквенных символов [[:alpha:]], а затем ecek. Часть в скобках фиксируется и используется в замене.