The OpenNET Project / Index page

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

Как в 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:
Заголовок:
Текст:




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру