<br><br><div class="gmail_quote">2010/5/27 <a href="mailto:victor@methodlab.info">victor@methodlab.info</a> <span dir="ltr">&lt;<a href="mailto:victor@methodlab.info">victor@methodlab.info</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;">
так короче: grep { shift @a } @a;<br>
<br></blockquote><div><br><br>Так делать нельзя, void контекст grep и map &ndash; зло (см. perlstyle)<br><br>@a=() &ndash; а так нельзя? :)<br>&nbsp;<br></div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">

В Чтв, 27/05/2010 в 12:50 +0400, Andrew Shitov пишет:<br>
<div class="im">&gt; Увидел вот такой код внутри класса.<br>
&gt;<br>
&gt; sub clear{<br>
&gt; &nbsp; &nbsp; my $template = shift @args;<br>
&gt; &nbsp; &nbsp; @{$self-&gt;{tokens}} = ();<br>
&gt; &nbsp; &nbsp; foreach (map {$_-&gt;{name}} @{$template-&gt;{si}}){<br>
&gt; &nbsp; &nbsp; &nbsp; &nbsp; while (my $r = shift @{$self-&gt;{$_}-&gt;{res}}){}<br>
&gt; &nbsp; &nbsp; }<br>
&gt; }<br>
&gt;<br>
&gt;<br>
&gt; Заслуживает внимания способ очистки массива:<br>
&gt;<br>
&gt; while (my $r = shift @a) {}<br>
&gt;<br>
&gt; Клево же :-)<br>
&gt;<br>
<br>
--<br>
</div>С уважением Виктор<br>
Метод Лаб<br>
+7 (495) 228-09-92<br>
<a href="http://www.methodlab.ru/" target="_blank">http://www.methodlab.ru/</a><br>
<div><div></div><div class="h5"><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><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.<br>