<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>