perl for循環(huán)超慢,有沒其它辦法?

yisn

同樣的一段程序,在delphi中只要30ms,到perl中要3000ms

1. 
   
2. my $msec=time;
   
3.     $middle=0;       
   
4.         foreach $i(1..37584806) {
   
5.           $middle++;
   
6.         }
   
7. 
   
8. my $msec2=time;
   
9. print "loop for $middle times takes ",($msec2-$msec)*1000,"ms";

復(fù)制代碼

一定要用perl的話,有其它辦法能變快嗎? 程序里for循環(huán)很多,而且有嵌套的,這種速度完全不行.

黑色陽光_cu

用 Inline “C” ？

yisn

用 Inline “C” ？
黑色陽光_cu 發(fā)表于 2010-03-15 00:30

謝謝. 我不了解inline C, 不過, 我的那個perl程序就3個類, 最多循環(huán)的操作是在其中一個類的函數(shù)里(這個函數(shù)還得調(diào)用其它類的函數(shù)),很難抽出來寫一個單獨的C程序. 估計用這個也不太現(xiàn)實.
沒其它辦法的話,估計得重新寫個C++版的程序了,C++我一點也不熟,C更別提了 >.<

蘭花仙子

同樣的一段程序,在delphi中只要30ms,到perl中要3000ms一定要用perl的話,有其它辦法能變快嗎? 程序里for循環(huán) ...
yisn 發(fā)表于 2010-03-14 23:52

如果數(shù)據(jù)交互設(shè)計較好的話（比如使用了關(guān)系數(shù)據(jù)庫），那么可以用Perl的多進(jìn)程（or maybe threads?）來并發(fā)的解決任務(wù)。

toniz

回復(fù) 1# yisn


   

1. foreach $i(1..37584806)

復(fù)制代碼

foreach這后面的變量會被看成是一個列表。所以你這個的數(shù)據(jù)將會很大，導(dǎo)致你內(nèi)存耗光。
像這么大的列表，建議使用循環(huán)代替。

1. for(my $i=1,$i<=37584806;$i++)

復(fù)制代碼

或者用while

longbow0

回復(fù) 5# toniz


    我測試的是 foreach 最快，for 其次，while 最慢。

toniz

回復(fù) 6# longbow0


    證明你機器性能不錯。  。 你可以試試把數(shù)字再調(diào)大，肯定會達(dá)到臨界值的。

longbow0

Dual-Core AMD Opteron(tm) Processor 2214 HE

4 G DDR2 RAM

不算太好吧？

wind_ch

回復(fù) 5# toniz


    我開始也以為是這樣, 不過用while也是千ms級別的.

toniz

回復(fù) 9# wind_ch


    是啊  你是對的  我也迷糊了 呵呵。
   發(fā)現(xiàn)foreach(1..1000000)這種方法是不會明顯消耗內(nèi)存的，如果把這個列表賦給數(shù)據(jù)，內(nèi)存就立刻飆升。而直接用foreach的話內(nèi)存就變化不大。