<p>Хотя туплю... Это всего лишь парсинг выражения со скобками. Причём нужно взять только первый уровень.</p>
<p>Считай скобки, в общем. :)</p>
<div class="gmail_quote">On 11 Jun 2011 09:17, "Aleksander Gorohovski" <<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>> wrote:<br type="attribution">> On Sat, 11 Jun 2011 10:13:44 +0300, Andrei wrote:<br>
> <br>>> Тогда забыть про регэкспы. Это почти как парсинг html -- в общем случае<br>>> регэкспами не парсится.<br>> <br>> предчувствие --- что должно рекурсивно.<br>> Regexp-Common работает же.<br>
> <br>>> On 11 Jun 2011 09:11, "Aleksander Gorohovski"  <br>>> <<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>><br>>> wrote:<br>>>> On Sat, 11 Jun 2011 10:03:11 +0300, Andrei wrote:<br>
>>><br>>>>> @str = map { $_ . '{' } grep {defined $_} split /{/, $str;<br>>>>><br>>>>> Как-то так...<br>>>><br>>>> К сожалению не всё так просто,<br>>>> в 'any symbols' of $str могут быть вложенные парные<br>
>>> фигурные скобки {}<br>>>> :(<br>>>> т.е.<br>>>> $str = '{any {symbols}}{{any} symbols}1...'<br>>>><br>>>> out:<br>>>> {any {symbols}}<br>>>> {{any} symbols}1<br>
>>> ...<br>> -- <br>> Moscow.pm mailing list<br>> <a href="mailto:moscow-pm@pm.org">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org">http://moscow.pm.org</a><br></div>