[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) {}
>
> Клево же :-)
>
>