Re: [Moscow.pm] Как очистить массив

[Павел Колганов]

А delete(@a[0..$#a]) не проще?

27.05.2010 12:50, Andrew Shitov пишет:

Увидел вот такой код внутри класса.

sub clear{
     my $template = shift @args;
     @{$self->{tokens}} = ();
     foreach (map {$_->{name}} @{$template->{si}}){
         while (my $r = shift @{$self->{$_}->{res}}){}
     }
}


Заслуживает внимания способ очистки массива:

while (my $r = shift @a) {}

Клево же :-)

--
Moscow.pm mailing list
moscow-pm@pm.org | http://moscow.pm.org