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

[Andrei]

27 мая 2010 г. 10:50 пользователь Andrew Shitov <andy на shitov.ru> написал:

> Увидел вот такой код внутри класса.
>
> sub clear{
>    my $template = shift @args;
>    @{$self->{tokens}} = ();
>    foreach (map {$_->{name}} @{$template->{si}}){
>        while (my $r = shift @{$self->{$_}->{res}}){}
>    }
> }
>
>
> Заслуживает внимания способ очистки массива:
>
> while (my $r = shift @a) {}
>
> Клево же :-)
>

До первого нуля, пустой строки undef, да?

-- 
Andrei Protasovitski
< andrei[dot]protasovitski[at]gmail[dot]com >
Diemen, Netherlands
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20100527/edfc7c5b/attachment.html>