|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Michael Poliakov 2:5020/400 04 Dec 2000 17:38:24 To : All Subject : Re: Hа: немного о regexp'ах -------------------------------------------------------------------------------- On Mon, 4 Dec 2000 09:19:01 +0000 (UTC), "Max Kuriloff" <m_a_x_z@nvkz.kuzbass.net> wrote: >Уточняюсь... Мне нужно найти несколько одинаковых _подрядидущих_ символов... >И если найдется что-то типа "ааааааа", заменить это на "а"... Поможет опция s (squeeze, or squash) оператора tr. $s = "Помоооогииитееееее!!!!"; $s =~ tr/а-я!//s; # в виндах так, в KOI - перечислить буквы print $s; Michael Poliakov --- ifmail v.2.15dev5 * Origin: Nizhniny Novgorod Information Networks (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/2080cd8f8bb1.html, оценка из 5, голосов 10
|