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

[Mons Anderson]

2010/5/29 Akzhan Abdulin <akzhan.abdulin на gmail.com>:
> Опять же, ничего не увидел :) Много способов выполнить то или иное действие
> :) Но это Perl, это естественно для него :)
> ну если критично именно смещать по одному, то я бы писал так:
> shift @a while scalar(@a);
>

scalar @a не требует скобок.
например ($size,$x) = scalar @a, 10; # size = 0; $x = 10;

while scalar @a эквивалентен while @a
while требует boolean context. для массива bool эквивалентен scalar.

shift @a while @a;

-- 
Best wishes,
Vladimir V. Perepelitsa aka Mons Anderson
<inthrax на gmail.com>, <mons на cpan.org>