> ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'
Только надо чуть поперловее:shift @a while @a; -- Andrew Shitov ______________________________________________________________________ [email protected] | http://shitov.ru -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
