Исходное сообщение
"Проверка сбалансированности скобок на Perl (regex perl)" Отправлено Denis, 02-Фев-10 10:22
упс... упустил кое-что... #!/usr/bin/perl use strict; my $cnt; my $s; my $stop; $_ = shift; print "$_ is OK\n" if              (m/^                 (?: (?{ $cnt = 0; $stop = 0; $s = ""; })                     (?> (?(?{ $stop })\G(?!))                       ([\(\[\{]) (?{ ++$cnt; $s .= $1; })                       |\) (?(?{ $cnt and (chop($s) eq "(") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))                       |\] (?(?{ $cnt and (chop($s) eq "[") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))                       |\} (?(?{ $cnt and (chop($s) eq "\{") }) (?{ --$cnt; }) | (?{ ++$stop; })(?!))                       |(?> [^()\[\]\{\}] )                     )*                 )                 (?(?{ $cnt }) (?!) )              $/x);

Ваше сообщение
Имя*:
EMail:	Для отправки ответов на email укажите знак ! перед адресом, например, !user@host.ru (!! - не показывать email). Более тонкая настройка отправки ответов производится в профиле зарегистрированного участника форума.
Заголовок*:
Сообщение*:
	Введите код, изображенный на картинке: