Программирование > Perl
Удаление слов с повторяющимися символами
DartSidius:
Подскажите как сделать, чтобы при разборе строки удалить свола, в которых повторяются символы . . . Нужно с помощью регулярки . .
arto:
\\b\\S*(\\S)\\S*\\1\\S*\\b
DartSidius:
$str =~ s/\\b\\S*(\\S)\\S*\\1\\S*\\b//s;
только первое слово с повторяющимися символами удаляет . .
arto:
опция g?
DartSidius:
Ну Вы бы сами попробовали с g . . . удаляет всю строку, а не слово
Навигация
Перейти к полной версии