<div dir="ltr">Я вообще не использую сишный цикл for.<br>Не зря его в Perl 6 переименовали в loop.<br><br><div class="gmail_quote">2008/9/17 Andrey Alakozov <span dir="ltr">&lt;<a href="mailto:aa29ww@gmail.com">aa29ww@gmail.com</a>&gt;</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>
&gt; # time perl -e&#39;for (my $i = 1, $i &lt;=10000000, $i++) {$i+1}&#39;<br>
&gt; 0.011u 0.011s 0:00.02 100.0% &nbsp; &nbsp;12+132k 0+0io 0pf+0w<br>
<br></div>
aa29.local$ perl -MO=Deparse -e&#39;for (my $i = 1, $i &lt;=10000000, $i++) {$i+1}&#39;<br>
<br>
foreach $_ (my $i = 1, $main::i &lt;= 10000000, $main::i++) {<br>
 &nbsp; &nbsp;$i + 1;<br>
}<br>
<br>
Если ее исправить, то все возвращается на свои места:<br>
<br>
aa29.local$ &nbsp;time perl -e &#39;for (my $i = 1; $i &lt;=10000000; $i++) {$i+1}&#39;<br>
<br>
real &nbsp; &nbsp;0m2.678s<br>
user &nbsp; &nbsp;0m2.670s<br>
sys &nbsp; &nbsp; 0m0.008s<br>
<br>
aa29.local$ &nbsp;time perl -e &#39;for my $i (1..10000000) {$i+1}&#39;<br>
<br>
real &nbsp; &nbsp;0m1.977s<br>
user &nbsp; &nbsp;0m1.971s<br>
sys &nbsp; &nbsp; 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>