<div dir="ltr">Я вообще не использую сишный цикл for.<br>Не зря его в Perl 6 переименовали в loop.<br><br><div class="gmail_quote">2008/9/17 Andrey Alakozov <span dir="ltr"><<a href="mailto:aa29ww@gmail.com">aa29ww@gmail.com</a>></span><br>
<blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">Алоха,<br>
<br>
Здесь опечатка:<div class="Ih2E3d"><br>
<br>
> # time perl -e'for (my $i = 1, $i <=10000000, $i++) {$i+1}'<br>
> 0.011u 0.011s 0:00.02 100.0% 12+132k 0+0io 0pf+0w<br>
<br></div>
aa29.local$ perl -MO=Deparse -e'for (my $i = 1, $i <=10000000, $i++) {$i+1}'<br>
<br>
foreach $_ (my $i = 1, $main::i <= 10000000, $main::i++) {<br>
$i + 1;<br>
}<br>
<br>
Если ее исправить, то все возвращается на свои места:<br>
<br>
aa29.local$ time perl -e 'for (my $i = 1; $i <=10000000; $i++) {$i+1}'<br>
<br>
real 0m2.678s<br>
user 0m2.670s<br>
sys 0m0.008s<br>
<br>
aa29.local$ time perl -e 'for my $i (1..10000000) {$i+1}'<br>
<br>
real 0m1.977s<br>
user 0m1.971s<br>
sys 0m0.000s<br>
<br>
aa29.local$ perl -v<br>
<br>
This is perl, v5.8.7 built for i386-freebsd-64int<br>
(with 2 registered patches, see perl -V for more detail)<br>
<br>
-- <br><font color="#888888">
Andrey</font><div><div></div><div class="Wj3C7c"><br>
_______________________________________________<br>
RostovOnDon-pm mailing list<br>
<a href="mailto:RostovOnDon-pm@pm.org" target="_blank">RostovOnDon-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/rostovondon-pm" target="_blank">http://mail.pm.org/mailman/listinfo/rostovondon-pm</a><br>
</div></div></blockquote></div><br><br clear="all"><br>-- <br>С уважением,<br> Анатолий Шарифулин.<br>
</div>