<p>@str = map { $_ . '{' } grep {defined $_} split /{/, $str;</p>
<p>Как-то так...</p>
<div class="gmail_quote">On 11 Jun 2011 08:40, "Aleksander Gorohovski" <<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>> wrote:<br type="attribution">> Уважаемое сообщество,<br>
> Доброго времени суток!<br>> <br>> Посоветуйте,<br>> как лучше (эффективнее) разобрать строку вида:<br>> <br>> $_ = '{any symbol}{any symbol}1{any symbol}2...';<br>> <br>> на фрагменты<br>
> {any symbol}<br>> {any symbol}1<br>> {any symbol}2<br>> ...<br>> <br>> Сейчас через Regexp::Common делаю так:<br>> <br>> my @f = /$RE{balanced}{-parens=>'{}'}/g;<br>> <br>> но получаю только<br>
> {any symbol}<br>> {any symbol}<br>> {any symbol}<br>> ...<br>> <br>> и не знаю можно ли как то указать, что<br>> закрывающаяся фигурная скобка может идти с \d*<br>> Пробовал<br>> /$RE{balanced}{-parens=>"{}\d*"}/g;<br>
> но это не работает<br>> :(<br>> <br>> Спасибо.<br>> <br>> p.s.<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>