perl性能

hh9net

root@wa perl # time perl 1.pl

real    0m13.483s
user    0m13.479s
sys     0m0.002s
You have new mail in /var/spool/mail/root
root@wa perl # time php 1.php

real    0m12.485s
user    0m12.426s
sys     0m0.035s
You have new mail in /var/spool/mail/root
root@wa perl # time ./1

real    0m0.440s
user    0m0.439s
sys     0m0.001s

最后一个是c

root@wa perl # cat 1.pl
my $k=0;
while(1)
{
$k+=1;
if($k==99999999)
{
exit;
}
}
root@wa perl # cat 1.php
<?
$k=0;
while(1)
{
$k+=1;
if($k==99999999)
{
exit;
}
}
?>
root@wa perl # cat 1.c
int t=0;
int main()
{
while(1)
{
t+=1;
if(t==99999999)
{
return;
}
}
}

[ 本帖最后由 hh9net 于 2009-11-29 13:37 编辑 ]

gaochong

相差这么多？你的代码是什么呢？

兰花仙子

# time perl 123.pl

real    0m8.044s
user    0m0.004s
sys     0m0.004s

# time ruby 123.rb

real    0m9.065s
user    0m0.028s
sys     0m0.016s

# time ./123

real    0m10.050s
user    0m0.000s
sys     0m0.004s

我测试的，C最慢~

# cat 123.c
#include <time.h>
main()
{
        int i;
        for(i=0;i<10;i++) sleep(1);
}

# cat 123.pl
sleep 1 for 0..7;

# cat 123.rb
for i in 0..8 do sleep 1 end

Perl至少最短啦~~

gaochong

顶！

好像perl有bench相关模块吧？

兰花仙子

sure~
Benchmark::Timer very convenient

blackold

支持Orchid

flw

支持仙子！

to 楼主：
我这里 ./1 要运行 3 分钟才能结束呢。

1. flw@waker study$ time ./1
   
2. 
   
3. real    0m179.451s
   
4. user   0m179.439s
   
5. sys     0m0.001s

复制代码

tlint

我的经验是算法比用什么语言更重要

royalzhang

支持除了楼主的大伙。
1. 算法重要。不知道楼主的程序，时间没有意义；
2. 有些数字在统计学上是没有显著差异的
3. 还要算上开发时间：即便我知道我的程序用C写会快10倍，但是我宁愿用perl写，在run的时候喝杯咖啡，而不是用C写半天程序。尤其是在有大量CPAN模块可用的情况下。

wfnh

绝对同意9楼··