<div class="gmail_quote">27 мая 2010 г. 10: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: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); 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></blockquote><div><br>До первого нуля, пустой строки undef, да? <br></div></div><br>-- <br>Andrei Protasovitski<br>&lt; andrei[dot]protasovitski[at]gmail[dot]com &gt;<br>Diemen, Netherlands<br>