关于dbi效率问题

打靶归来

从informix提取数据到本地文件中.
行数是2900行,保存为文件后的大小大概是300K,需要耗时8秒,百M带宽.
效率太底了,有什么另外的方法吗?

1. #!/usr/bin/perl -w
   
2. use DBI;
   
3. use DBD::Informix;
   
4. 
   
5. my $database='db';
   
6. my $user='***';
   
7. my $pass='***';
   
8. my $time_before=time;
   
9. my $dbh = DBI->connect("dbi:Informix:$database", $user, $pass,{AutoCommit => 0, PrintError => 1});
   
10. my $sth=$dbh->prepare_cached(qq{select * from vender});
    
11. $sth->execute;
    
12. my $total_row=0;
    
13. open TXT_DATA,">","testdata\.txt";
    
14. my  $rows = $sth -> fetchall_arrayref();
    
15. foreach my $row(@$rows){
    
16.         print TXT_DATA "$row\n";
    
17.         $total_row++;
    
18. }
    
19. close TXT_DATA;
    
20. $dbh->disconnect;
    
21. my $time_after=time;
    
22. my $lost_time=$time_after-$time_before;
    
23. print "lost time : $lost_time\n";
    
24. print "total row: $total_row\n";
    

复制代码

放驴娃

我想，fetchrow_arrayref 要比 fetchall_arrayref 效率好一些吧。
另外你查查别的地方是不是有什么端倪。没环境，没法测试。

[ 本帖最后由 放驴娃 于 2008-4-10 11:46 编辑 ]

打靶归来

原帖由 放驴娃 于 2008-4-10 11:44 发表
我想，fetch 要比 fetchall_arrayref 效率好一些吧。
另外你查查别的地方是不是有什么端倪。没环境，没法测试。

1. while (my @ary = $sth -> fetchrow_array ()){
   

复制代码

用了fetch也差不多的慢.......

放驴娃

fetch 是 fetchrow_arrayref 的别名，和 fetchrow_array 还是有区别的……