bash和perl在处理for循环时的效率对比

walkerxk

walkerxk@www:~$ cat a.sh
#!/bin/bash
N=1000
for ((I=1;I<$N;I++))
do
J=$(echo $N/10|bc)
if [ $(expr $I % $J) -eq 0 ]
then
echo $I >sh.log
fi
done
walkerxk@www:~$ cat a.pl
#!/usr/bin/perl
$n=1000;
open($f,">pl.log");
for ($i=1;$i<$n;$i++)
{
$j=$n/10;
if (0==$i%$j)
{
print $f $i."\n";
}
}
walkerxk@www:~$ time ./a.pl

real    0m0.008s
user    0m0.004s
sys     0m0.004s
walkerxk@www:~$ time ./a.sh

real    0m11.770s
user    0m3.304s
sys     0m5.664s
walkerxk@www:~$
两千多倍，谁能告诉我为什么？
如果我把if条件注释掉：
walkerxk@www:~$ time ./a.pl

real    0m0.069s
user    0m0.004s
sys     0m0.004s
walkerxk@www:~$ time ./a.sh

real    0m23.459s
user    0m1.684s
sys     0m3.808s
perl增加的时间应该是用在写文件上了，如过我重新执行a.pl，时间会变成：
walkerxk@www:~$ time ./a.pl

real    0m0.009s
user    0m0.000s
sys     0m0.008s
walkerxk@www:~$ time ./a.pl

real    0m0.009s
user    0m0.000s
sys     0m0.004s
walkerxk@www:~$

寂寞烈火

shell脚本每次循环都调用了bc 慢就正常啦

waker

N=1000
for ((I=1;I<$N;I++))
do
J=$(echo $N/10|bc)
if [ $(expr $I % $J) -eq 0 ]
then
echo $I >sh.log
fi
至少发起、终结了3000个进程

walkerxk

我把bc去掉，还是很慢
real    0m0.176s
user    0m0.084s
sys     0m0.060s

walkerxk

walkerxk@www:~$ time ./a.pl
real    0m0.007s
walkerxk@www:~$ time ./a.pl
real    0m0.008s
walkerxk@www:~$ time ./a.sh
real    0m0.252s
walkerxk@www:~$ time ./a.sh
real    0m0.236s
walkerxk@www:~$ time ./a.sh
real    0m0.286s
walkerxk@www:~$ time ./a.sh
real    0m0.234s

walkerxk

原帖由 waker 于 2007-11-21 17:06 发表
N=1000
for ((I=1;Ish.log
fi
至少发起、终结了3000个进程

有什么办法可以优化么？bc已经去掉了，bc是因为一开始的测试才加进去的。

寂寞烈火

原帖由 walkerxk 于 2007-11-21 17:18 发表
我把bc去掉，还是很慢
real    0m0.176s
user    0m0.084s
sys     0m0.060s

perl不是bash

walkerxk

还好一般服务器管理不用用到这么多的for循环，不知道运行时CPU负载怎么样。我看一下。
CPU占用差不多。

[ 本帖最后由 walkerxk 于 2007-11-21 17:41 编辑 ]

seeLnd

没办法，就是把bash循环体中的语句全拿掉，在那空转，还是比perl慢许多，bash的长处不在于速度

walkerxk

原帖由 seeLnd 于 2007-11-21 17:52 发表
没办法，就是把bash循环体中的语句全拿掉，在那空转，还是比perl慢许多，bash的长处不在于速度

问题是bash不能空转，空转就报错：
./a.sh: line 10: 在未预料的“done”附近出现语法错误
./a.sh: line 10: `done'