Мне ÐºÐ°Ð¶ÐµÑ‚ся, Ñ‡Ñ‚о Ð¸Ð´ÐµÐ°Ð»ÑŒÐ½Ð¾ Ð² Ð²Ð°ÑˆÐµÐ¼ ÑÐ»ÑƒÑ‡Ð°Ðµ - ÑÐ¾ÑÑ‚авить Ð³Ñ€Ð°Ð¼Ð¼Ð°Ñ‚ику Ð¸ ÑÐ³ÐµÐ½ÐµÑ€Ð¸Ñ€Ð¾Ð²Ð°Ñ‚ÑŒ Ð¿Ð¾ Ð½ÐµÐ¹ Ð¿Ð°Ñ€ÑÐµÑ€.<div><br></div><div>Что-нибудь Ñ‚ипа <a href="http://search.cpan.org/dist/Parse-RecDescent/lib/Parse/RecDescent.pm">http://search.cpan.org/dist/Parse-RecDescent/lib/Parse/RecDescent.pm</a><br>
<br><div class="gmail_quote">11 Ð¸ÑŽÐ½Ñ 2011 г. 10:39 Ð¿Ð¾Ð»ÑŒÐ·Ð¾Ð²Ð°Ñ‚ель Aleksander Gorohovski <span dir="ltr"><<a href="mailto:angel@feht.dgtu.donetsk.ua">angel@feht.dgtu.donetsk.ua</a>></span> Ð½Ð°Ð¿Ð¸ÑÐ°Ð»:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
Уважаемое ÑÐ¾Ð¾Ð±Ñ‰ÐµÑÑ‚во,<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><font color="#888888">
-- <br>
Moscow.pm mailing list<br>
<a href="mailto:moscow-pm@pm.org" target="_blank">moscow-pm@pm.org</a> | <a href="http://moscow.pm.org" target="_blank">http://moscow.pm.org</a><br>
</font></blockquote></div><br></div>