Уверен?
use 5.012;
my @a = (1,2,3);
for (;local (undef,$_) = each @a;) { last }
for (;local (undef,$_) = each @a;) { say }
ну или
use 5.012;
my @a = (1,2,3);
while (local (undef,$_) = each @a) { last }
while (local (undef,$_) = each @a) { say }
2
3
http://perldoc.perl.org/functions/each.html
On 10/30/2012 09:22 PM, Denis Evdokimov wrote:
> Такие "фокусы" можно делать с хешами и строками, с массивами нельзя.
>
>
-- Moscow.pm mailing list [email protected] | http://moscow.pm.org
