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