<br><br><div class="gmail_quote">27 мая 2010 г. 15:38 пользователь Andrew Shitov <span dir="ltr"><<a href="mailto:andy@shitov.ru">andy@shitov.ru</a>></span> написал:<br><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
<div class="im">> ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'<br>
<br>
</div>Только надо чуть поперловее:<br>
<br>
shift @a while @a;<br></blockquote><div><br>shift @a while @a and die;<br><br></div></div>-- <br>Andrei Protasovitski<br>< andrei[dot]protasovitski[at]gmail[dot]com ><br>Diemen, Netherlands<br>