Ничего клёвого не увидел.<div><br></div><div>@a = (); # православно</div><div><br></div><div>если только до первого ложного значения, но это уже магия, а не очистка :)<br><div><br><div class="gmail_quote">27 мая 2010 г. 12:50 пользователь Andrew Shitov <span dir="ltr">&lt;<a href="mailto:andy@shitov.ru">andy@shitov.ru</a>&gt;</span> написал:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Увидел вот такой код внутри класса.<br>
<br>
sub clear{<br>
    my $template = shift @args;<br>
    @{$self-&gt;{tokens}} = ();<br>
    foreach (map {$_-&gt;{name}} @{$template-&gt;{si}}){<br>
        while (my $r = shift @{$self-&gt;{$_}-&gt;{res}}){}<br>
    }<br>
}<br>
<br>
<br>
Заслуживает внимания способ очистки массива:<br>
<br>
while (my $r = shift @a) {}<br>
<br>
Клево же :-)<br>
<br>
--<br>
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>
<font color="#888888">--<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>
</font></blockquote></div><br></div></div>