Здравствуйте, я любитель Perl и регулярных выражений
Я хочу спросить следующее:
Можно ли сделать один аргумент замены для следующего кода:
($inputwoord =~s /[aa|uu|ee|oo]/[a|u|e|o]/) {}
Мне в основном нужно изменить все дифтонги, поэтому остается только 1 гласная.
Однако Perl, кажется, не понимает, что он должен изменить aa => a oo => o и т.д..
Он терпит крах.
Есть ли способ соотнести дифтонг с гласной в той же замене? Я не хочу делать 4 разных замены...
Спасибо!
[...] определяет класс символов. Таким образом, [aa] эквивалентно [a].
Если вы хотите найти повторяющиеся гласные, вы можете запомнить гласную с помощью скобок:
/([aueo])\1/
Это соответствует любому символу класса, за которым следует тот же символ. Чтобы заменить его только одним вхождением, снова используйте группу захвата:
s/([aueo])\1/$1/g
Итак, чтобы изменить значение переменной $inputwoord:
$inputwoord =~ s/([aueo])\1/$1/g
Кстати, вместо того, чтобы говорить Он падает, полезнее показать реальную ошибку, которую вы получаете. Вы не показали достаточно кода, чтобы мы могли догадаться, почему Perl рухнул.
