Forum Webscript.Ru

Программирование => Perl => Тема начата: DartSidius от 09 Июля 2009, 23:13:07

Название: Удаление слов с повторяющимися символами
Отправлено: DartSidius от 09 Июля 2009, 23:13:07

Подскажите как сделать, чтобы при разборе строки удалить свола, в которых повторяются символы . . . Нужно с помощью регулярки . .

Название: Удаление слов с повторяющимися символами
Отправлено: arto от 10 Июля 2009, 09:18:13

\\b\\S*(\\S)\\S*\\1\\S*\\b

Название: Удаление слов с повторяющимися символами
Отправлено: DartSidius от 10 Июля 2009, 09:46:36

$str =~ s/\\b\\S*(\\S)\\S*\\1\\S*\\b//s;

только первое слово с повторяющимися символами удаляет . .

Название: Удаление слов с повторяющимися символами
Отправлено: arto от 10 Июля 2009, 11:53:27

опция g?

Название: Удаление слов с повторяющимися символами
Отправлено: DartSidius от 10 Июля 2009, 13:18:37

Ну Вы бы сами попробовали с g . . . удаляет всю строку, а не слово

Название: Удаление слов с повторяющимися символами
Отправлено: arto от 10 Июля 2009, 14:05:23

# perl -le \'$_ = $ARGV[0]; s#\\b\\S*(\\S)\\S*\\1\\S*\\b##g; print\' "abba tesla most babba test"
 tesla most  
#