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

[victor на methodlab.info]

так короче: grep { shift @a } @a;

В Чтв, 27/05/2010 в 12:50 +0400, 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) {}
> 
> Клево же :-)
> 

-- 
С уважением Виктор
Метод Лаб
+7 (495) 228-09-92
http://www.methodlab.ru/