On 05/27/2010 05:28 PM, Andrei wrote:
perl -le 'my @a = (-2..2); while (shift @a){}; print @a;'
 ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'


--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить