[RostovOnDon.pm] Perl 5.10

[Andrey Alakozov]

Алоха,

Здесь опечатка:

 > # time perl -e'for (my $i = 1, $i <=10000000, $i++) {$i+1}'
 > 0.011u 0.011s 0:00.02 100.0%    12+132k 0+0io 0pf+0w

aa29.local$ perl -MO=Deparse -e'for (my $i = 1, $i <=10000000, $i++) {$i+1}'

foreach $_ (my $i = 1, $main::i <= 10000000, $main::i++) {
     $i + 1;
}

Если ее исправить, то все возвращается на свои места:

aa29.local$  time perl -e 'for (my $i = 1; $i <=10000000; $i++) {$i+1}'

real    0m2.678s
user    0m2.670s
sys     0m0.008s

aa29.local$  time perl -e 'for my $i (1..10000000) {$i+1}'

real    0m1.977s
user    0m1.971s
sys     0m0.000s

aa29.local$ perl -v

This is perl, v5.8.7 built for i386-freebsd-64int
(with 2 registered patches, see perl -V for more detail)

-- 
Andrey