The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Как в perl regex обнаружить несколько одинаковых, подряд идущих, символов.
my $a="ttttest"; # Нужно определить 4 подряд идущих символа
if ($a =~ /([a-z])\1{3}/ ){
   print "4 совпало.\n";
}
 где, \1 - обратная ссылка на совпадение в скобках, {3} - повтор 3 раза.
 
08.01.2004
Ключи: perl, regex, pri, print, crash / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Regex (регулярные выражения)

Ваш комментарий
Имя:         
E-Mail:      
Заголовок:
Текст:



  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor