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
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