|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Anatoly Moskovsky 2:5020/400 24 Aug 2000 15:12:35
To : All
Subject : Re: Сопоставление со скобками
--------------------------------------------------------------------------------
Привет!
"Albert N. MICHEEV" <Albert.N.MICHEEV@f80.n5049.z2.fidonet.org> wrote in
message news:967094886@f80.n5049.z2.ftn...
>AM> Hyжно составить pегэксп котоpый выделяет веpхний ypовень скобок:
>вот максимyм, что можно выжать из pегэкспов пpи нынешнем ypовне их
pазвития:
> my ($c, $p, $i, @text) = (0, 0);
> while( /(\((?{$c++}) )+ | (\)(?{$c--}))+/xg ){
> push( @text, substr $text, $p+1, ($i=length $`.$&)-$p-2 ), $p=$i unless
$c
> }
У меня сходу не заработало, но принцип понятен.
Спасибо!
Бай
--- ifmail v.2.15dev5
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
