如何使用perl dbi和mysql压缩数据

Question

我正在使用perl dbi连接来远程提取数据。 我希望尽可能压缩数据。 有没有办法用perl dbi对网络进行文件压缩？

这是我获取数据的代码段：

     my $sth = $dbh->prepare("SELECT UUID(), '$node', 1, 2, 3, 4, vts FROM $tblist");
     $sth->execute();
     while (my($uid, $hostnm,$1,$2,$3,$upd,$vts) = $sth->fetchrow_array() ) { 
       print $gzip_fh "rec^A$uid^Ehost^A$hostnm^E1^A$1^E2^A$2^E3^A$3^E4^A$upd^Evts^A$vts^D";
     }
     $sth->finish;

Answer 1

最好的选择是使用准备好的陈述 ; 有了这个，一旦你编译了语句，只需要在每次需要运行查询时通过线路发送参数。

这里的示例显示了如何执行简单的准备，如果要反复使用相同的查询，则应保留$sth ，您可以继续使用新变量调用$sth->execute() 。 减少网络遍历的原因是因为每次运行$sth->execute($var)时都不会发送查询，而只是传递准备好的语句的ID和进入的变量的? 占位符。

$sth = $dbh->prepare("select * from table where column=?");
$sth->execute($var);