这种情况下怎么Perl效率这么低

ustbleetom

闲的D疼写了个小代码测试Perl和node的性能。
node:

1. for(var i = 0; i < 100000; i++){
   
2.         for(var j=0;j<100000;j++){
   
3.                 i*j;
   
4.         }
   
5. }
   

复制代码

Perl:

1. #!/usr/bin/perl
   
2. 
   
3. for($i=0;$i<100000;$i++){
   
4.         for($j=0;$j<100000;$j++){
   
5.                 $i * $j;
   
6.         }
   
7. }
   

复制代码

C:

1. #include<stdio.h>
   
2. 
   
3. int main(void){
   
4.         int i,j;
   
5.         for(i=0;i<100000;i++){
   
6.                 for(j=0;j<100000;j++){
   
7.                         i * j;
   
8.                 }
   
9.         }
   
10. }
    

复制代码

结果：

1. time node bench.js
   
2. 
   
3. real        0m46.029s
   
4. user        0m46.315s
   
5. sys        0m0.068s
   

复制代码

1. time perl bench.pl
   
2. 
   
3. real        22m36.985s
   
4. user        22m34.569s
   
5. sys        0m1.192s
   

复制代码

1. 
   
2. make bench
   
3. time ./bench
   
4. 
   
5. real        0m32.640s
   
6. user        0m32.530s
   
7. sys        0m0.068s
   

复制代码

这个结果看，Perl的差距大了点吧。。。是有啥没考虑到的原因吗？

3P主义

foreach my $i (0 .. 999999)

ustbleetom

foreach my $i (0 .. 999999)
3P主义 发表于 2011-10-28 18:54

    开始测试的这个，看差太多，换成的上面的代码，结果更慢。用这个可以快几十秒，差距还是太大

ustbleetom

将乘法运算去掉，结果还是很差，Perl空循环这么慢...

1. time perl bench.pl
   
2. 
   
3. real        13m9.776s
   
4. user        13m6.921s
   
5. sys        0m0.988s
   

复制代码

ziyunfei

node有这么快???

ziyunfei

1. $ time ./node -e 'for(var i=0;i<10000;i++){for(var j=0;j<10000;j++){}}'
   
2. 
   
3. real    1m16.706s
   
4. user    0m0.000s
   
5. sys     0m0.015s

复制代码

ustbleetom

回复 6# ziyunfei


    测试空循环node比C还要快。

我cpu 2.0GHz

ziyunfei

回复  ziyunfei


    测试空循环node比C还要快。

我cpu 2.0GHz
ustbleetom 发表于 2011-10-28 20:06

我可是用的10000.还一分多钟呢.你确定没搞错?比c快???

就算是windows的node也不会差别这么大吧

zhlong8

要不给你们两个人一人发六毛，没研究过编译器 hotspot JIT 这些词总听过吧 {:3_196:}

ustbleetom

回复 9# zhlong8


    没有听说过...
不知道为啥空循环会这么慢..