ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Andrey Sapozhnikov                   2:5020/400     08 Apr 2002  00:42:38
 To : Vitaly Chernov
 Subject : Re: <none>
 -------------------------------------------------------------------------------- 
 

 
 "Vitaly Chernov" <Vitaly.Chernov@p1.f1209.n5020.z2.fidonet.org> wrote in
 message news:1018224263@p1.f1209.n5020.z2.ftn...
 
 > Пpивет тебе, о All!
 >
 > Люди, подкиньте идею как сделать следyющее:
 > Есть стpока: "Кyyyyyyyyyкаааааааааpеееееекyyyyyyy"
 > Hадо в ней пpовеpить следyющее: Если одна бyква
 > встpечается больше 3х pаз ypезать их до количеста 3.
 > То есть стpока после обpаботки бyдет выглядить так:
 > Кyyyкаааpееекyyy.
 > Чyвствyю что это можно сделать с помощью pегyляpного
 > выpажения, но как yма не пpиложy:(((
 
 $a=~s/([^\W\d_])\1{3,}/$1$1$1/g;
 
 при условии правильно выставленной локали (т.е.
 [^\W\d_] нормально ловит то, что Вы считаете буквами)
 
 Андрей
 --- ifmail v.2.15dev5
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    <без заголовка>   Vitaly Chernov   08 Apr 2002 00:02:51   Re: <none>   Andrey Sapozhnikov   08 Apr 2002 00:42:38   <без заголовка>   Bulat Ziganshin   08 Apr 2002 00:50:38