Рекурсивный матчинг вложенных скобок

1

2

Строку, которая должна соответствовать шаблону, см. в самом коде:

my %p=('('=>')','{'=>'}');
my $a='fg{}hg (  (gh{jkjk} (h) g (llh) ) ( (jkj) (k(l h{} jhjhj )k) k) kkk) jkjkj (aaa)';
print "hello\n" 
 if $a=~m/^((?>[^({})]*)(?:([({])(?-2)(??{ '\'.$p{$2} })(?>[^({})]*))*)$/;

Вопрос: работает-то оно работает, но можно ли было проще сделать?

Ссылка

←	Чем в racket округлить до сотых (десятых, тысячных)?

Ответ на сообщения форума через email. Как?

→

работает - не трожь! :)

bvn13 ★★★★★
(19.01.15 19:13:09 MSK)

Ссылка

Can't find string terminator «'» anywhere before EOF

Deleted
(19.01.15 19:17:54 MSK)

Ссылка

/^((?>[^({})]*)(?:([({])(?-2)(??{ '\'.$p{$2} })(?>[^({})]*))*)$/

Да куда уж проще?

Ты бы хоть регулярку на строки разбил, а то сразу вспоминается «echo test... test.... test...».

~~DELIRIUM~~ ☆☆☆☆☆
(19.01.15 19:20:03 MSK)

Ты свой код тестируешь так? :)

~~gh0stwizard~~ ★★★★★
(19.01.15 19:30:10 MSK)

Ссылка

if $a =~ m//

Нужно просто проверять на сбалансированность, или извлекать некую часть текста? Если первое, то я бы взял Regexp::Common. Если второе, то Text::Balanced.

AITap ★★★★★
(19.01.15 19:48:38 MSK)

Ответ на: комментарий от AITap 19.01.15 19:48:38 MSK

Как вариант какую-нибудь грамматику, например:
https://metacpan.org/pod/Parse::RecDescent (не проверял на актуальность и готовность, но что-нибудь в этом духе)

anonymous
(19.01.15 19:53:23 MSK)