perl 1000次连接字符串的循环花了4分钟

想像的瞬间

用perl 1000次连接字符串的循环花了4分钟

就是下面的几行代码

for ($i=1;$i<=1000;$i++)
{

        $threads = $threads." ('$i', '2', '0', '0', '0', '0', 'admin', '1', 'testestestes', '1234342389', '1234342389', 'admin', '2', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0');";
}

print "INSERT INTO `threads` VALUES".threads;
exit();



竟然执行了 4分35秒。
请教达人，为什么会这么慢？ 使用的是 activeperl 5.10 .

测试了一下用cgi 方式只要1秒左右，用 perl 直接解释运行却要4分钟。

ynchnluiti

每次都是这么慢吗

DQP

1. 
   
2. use Benchmark;
   
3. use Data::Dumper;
   
4. my $t0 = new Benchmark;
   
5. my $threads;
   
6. for (my $i=1;$i<=1000;$i++)
   
7. {
   
8. 
   
9.         $threads = $threads." ('$i', '2', '0', '0', '0', '0', 'admin', '1', 'testestestes', '1234342389', '1234342389', 'admin', '2', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0');";
   
10. }
    
11. print $threads;
    
12. 
    
13. my $t1 = new Benchmark;
    
14. my $td = timediff($t1, $t0);
    
15. print "the code took:",timestr($td),"\n";
    

复制代码

1. 
   
2. the code took: 0 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)
   

复制代码

不是这的问题吧
才1000次Benchmark都测不出来

想像的瞬间

我用 editplus 运行了，运行完了它有一个输出完成时间的，上面提示是4分钟

想像的瞬间

原帖由 ynchnluiti 于 2009-2-12 12:34 发表
每次都是这么慢吗

嗯，每次都要3到4分钟的样子

cobrawgl

我也用 editplus ，我怎么就不是 4 分钟呢

DQP

你把输出去掉
再试一下

sunkez

改成数组的
push @threads

luckyelement

#!/usr/bin/perl use strict; my $threads; my $s_time = time(); foreach (1..100000) {      $threads = $threads." ('$_', '2', '0', '0', '0', '0', 'admin', '1', 'testestestes', '1234342389', '1234342389', 'admin', '2', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0', '0')"; } my $e_time = time() - $s_time; print $e_time;

循环的是 100000次 比你的高100倍。时间是75s
perl 一般不使用for， 效率没有foreach效率高.

[ 本帖最后由 luckyelement 于 2009-2-12 14:18 编辑 ]

想像的瞬间

谢谢楼上的大哥们，测试了一上，是
print 占用了很长时间，没用 print ，用 foreach (1..1000) 循环连接字符串不到1秒，加了print 输出就要3分钟以上。

print 占用了这么长时间？