Опять же, ничего не увидел :) Много способов выполнить то или иное действие :) Но это Perl, это естественно для него :)<div><br></div><div>ну если критично именно смещать по одному, то я бы писал так:</div><div>shift @a while scalar(@a);<br>
<br><div class="gmail_quote">27 мая 2010 г. 22:46 пользователь Andrew Shitov <span dir="ltr"><<a href="mailto:andy@shitov.ru">andy@shitov.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
> Ничего клёвого не увидел.<br>
<br>
А в том, что понаписали в ответ? :-)<br>
<font color="#888888"><br>
<br>
--<br>
</font><div><div></div><div class="h5">Andrew Shitov<br>
______________________________________________________________________<br>
<a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru" target="_blank">http://shitov.ru</a><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" target="_blank">http://moscow.pm.org</a><br>
</div></div></blockquote></div><br></div>