27 мая 2010 г. 15:38 пользователь Andrew Shitov <[email protected]> написал:
> > ~ % perl -le 'my @a = (-2..2); while (@a){shift @a}; print @a;'
>
> Только надо чуть поперловее:
>
> shift @a while @a;
>
shift @a while @a and die;
--
Andrei Protasovitski
< andrei[dot]protasovitski[at]gmail[dot]com >
Diemen, Netherlands
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
