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

[Andrew Shitov]

>  ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'

Только надо чуть поперловее:

shift @a while @a;


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