ccn@ccn-laptop ~<br>$ perl -le &#39;my @a=(undef,1,2,3);while(defined(my $r=shift @a)){};print @a&#39;<br>123<br><br><br><div class="gmail_quote">2010/5/27 Albert Tugushev <span dir="ltr">&lt;<a href="mailto:metalikus@gmail.com">metalikus@gmail.com</a>&gt;</span><br>
<blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">perl -le &#39;my @a=(0,1,2,3); while(defined(my $r = shift @a)){}; print @a&#39;<br>
<br>
<br>
27 мая 2010 г. 10:20 пользователь Alexander Onokhov &lt;<a href="mailto:ccnweb@gmail.com">ccnweb@gmail.com</a>&gt; написал:<br>
<div><div></div><div class="h5">&gt; &lt;code&gt;<br>
&gt; ccn@ccn-laptop ~<br>
&gt; $ perl -le &#39;my @a=(1,2,3); while(my $r = shift @a){}; print @a&#39;<br>
&gt;<br>
&gt; ccn@ccn-laptop ~<br>
&gt; $ perl -le &#39;my @a=(0,1,2,3); while(my $r = shift @a){}; print @a&#39;<br>
&gt; 123<br>
&gt; &lt;/code&gt;<br>
&gt;<br>
&gt; 2010/5/27 Andrew Shitov &lt;<a href="mailto:andy@shitov.ru">andy@shitov.ru</a>&gt;<br>
&gt;&gt;<br>
&gt;&gt; Увидел вот такой код внутри класса.<br>
&gt;&gt;<br>
&gt;&gt; sub clear{<br>
&gt;&gt;    my $template = shift @args;<br>
&gt;&gt;    @{$self-&gt;{tokens}} = ();<br>
&gt;&gt;    foreach (map {$_-&gt;{name}} @{$template-&gt;{si}}){<br>
&gt;&gt;        while (my $r = shift @{$self-&gt;{$_}-&gt;{res}}){}<br>
&gt;&gt;    }<br>
&gt;&gt; }<br>
&gt;&gt;<br>
&gt;&gt;<br>
&gt;&gt; Заслуживает внимания способ очистки массива:<br>
&gt;&gt;<br>
&gt;&gt; while (my $r = shift @a) {}<br>
&gt;&gt;<br>
&gt;&gt; Клево же :-)<br>
&gt;&gt;<br>
&gt;&gt; --<br>
&gt;&gt; Andrew Shitov<br>
&gt;&gt; ______________________________________________________________________<br>
&gt;&gt; <a href="mailto:andy@shitov.ru">andy@shitov.ru</a> | <a href="http://shitov.ru" target="_blank">http://shitov.ru</a><br>
&gt;&gt; --<br>
&gt;&gt; Moscow.pm mailing list<br>
&gt;&gt; <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>
&gt;<br>
&gt;<br>
&gt;<br>
&gt; --<br>
&gt; Alexander<br>
&gt;<br>
&gt; --<br>
&gt; Moscow.pm mailing list<br>
&gt; <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>
&gt;<br>
&gt;<br>
<br>
<br>
<br>
--<br>
</div></div>Best regards,<br>
<font color="#888888">Albert Tugushev.<br>
</font><div><div></div><div class="h5">--<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><br clear="all"><br>-- <br>Alexander<br>