<code><br>ccn@ccn-laptop ~<br>$ perl -le 'my @a=(1,2,3); while(my $r = shift @a){}; print @a'<br><br>ccn@ccn-laptop ~<br>$ perl -le 'my @a=(0,1,2,3); while(my $r = shift @a){}; print @a'<br>123<br></code><br>
<br><div class="gmail_quote">2010/5/27 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;">
Увидел вот такой код внутри класса.<br>
<br>
sub clear{<br>
my $template = shift @args;<br>
@{$self->{tokens}} = ();<br>
foreach (map {$_->{name}} @{$template->{si}}){<br>
while (my $r = shift @{$self->{$_}->{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><br clear="all"><br>-- <br>Alexander<br>