ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     06 Mar 2001  18:52:33
 To : eugene@zaitsev.org
 Subject : Re: [Q] Хитрый Regexp нужен
 -------------------------------------------------------------------------------- 
 

 Здравствуй, Eugene E. Zaitsev.
 
 В твоём письме от Tue, 06 Mar 2001 16:06:19 +0300 написано:
 
 ezo> Имеем чат. Хотим, что бы в скаданном любым участником предложении не было
 ezo> более 3 повторяющихся символов подряд. То есть, допустим, ставит
 ezo> пользователь большой смайлик ":)))))))))))))", как бы так его нарезать,
 ezo> что бы он стал таким: ":)))", т.е. одинаковых символов не должно быть
 ezo> более 3.
 
 s/(.)\1{3,}/$1$1$1/gs; ?
 
 -- 
 Artem Chuprina                            E-mail: ran@ran.pp.ru
 Programmer                                  FIDO: 2:5020/371.32
 Memonet Ltd.                             Phone: +7-095-284-1356
 --- ifmail v.2.15dev5
  * Origin: NTV Internet (2:5020/400)
 
 

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