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

[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) {}

Клево же :-)

-- 
Andrew Shitov
______________________________________________________________________
andy на shitov.ru | http://shitov.ru