perl for循环超慢,有没其它办法?

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";

复制代码

一定要用perl的话,有其它办法能变快吗? 程序里for循环很多,而且有嵌套的,这种速度完全不行.

xmature

{:3_185:}

wfnh

看来你只能转其他了·

yisn

如果数据交互设计较好的话（比如使用了关系数据库），那么可以用Perl的多进程（or maybe threads?） ...
兰花仙子 发表于 2010-03-15 10:09

这个程序不是单纯的读大量数据,操作大量数据,它里面有用HMM算法,所以很难简单地变成数据库的操作.
看来我还是变C++好了,希望能快一些. 反正对pl对C++都是小小菜菜鸟 =.-

yisn

回复  yisn


    foreach这后面的变量会被看成是一个列表。所以你这个的数据将会很大，导致你内 ...
toniz 发表于 2010-03-15 14:18

变成while省不了太多时间, 之前测过,for,foreach,while(甚至更慢)差不多. 如果用for(i;i++)的方式就慢得多.

toniz

回复 11# yybmsrs


    越来越迷糊 呵呵

1. foreach $i(1..37584806){
   
2. ...
   
3. }
   
4. 内存基本看不到变化。

复制代码

1. @a=(1..37584806);
   
2. foreach $i(@a){
   
3. 。。。
   
4. }
   
5. 会消耗很多内存。

复制代码

1. $i=(1..37584806)[37584800];
   
2. 这样也很耗内存。
   

复制代码

yybmsrs

foreach(1..1000000)也应该跟for差不多吧，每次加1，然后判断

我这里测试foreach是19000ms，for是16000ms

toniz

回复 9# wind_ch


    是啊  你是对的  我也迷糊了 呵呵。
   发现foreach(1..1000000)这种方法是不会明显消耗内存的，如果把这个列表赋给数据，内存就立刻飙升。而直接用foreach的话内存就变化不大。

wind_ch

回复 5# toniz


    我开始也以为是这样, 不过用while也是千ms级别的.

longbow0

Dual-Core AMD Opteron(tm) Processor 2214 HE

4 G DDR2 RAM

不算太好吧？