Perl DBI使用mysql本机多重插入能力插入多行

Question

有没有人见过 Perl 的 DBI 类型模块，它可以轻松地利用 MySQL 的多插入语法

插入 TBL (col1, col2, col3) 值 (1,2,3),(4,5,6) ，...？

我还没有找到允许我这样做的界面。我发现的唯一的事情就是循环遍历我的数组。与将所有内容放入一行并让 MySQL 处理相比，此方法似乎不太理想。我没有在 IE google 上找到任何文档来阐明如何滚动我自己的代码来做到这一点。

TIA

Answer 1

有两种方法。您可以根据数组的大小多次插入 (?, ?, ?) 。文本操作类似于：

my $sql_values = join( ' ', ('(?, ?, ?)') x scalar(@array) );

然后展平数组以调用 execute()。我会避免这种方式，因为需要完成棘手的字符串和数组操作。

另一种方法是开始事务，然后多次运行单个插入语句。

my $sql = 'INSERT INTO tbl (col1, col2, col3)';
$dbh->{AutoCommit} = 0;
my $sth = $dbh->prepare_cached( $sql );
$sth->execute( @$_ ) for @array;
$sth->finish;
$dbh->{AutoCommit} = 1;

这比第一种方法慢一点，但仍然避免了重新解析语句。它还避免了第一个解决方案的微妙操作，同时仍然是原子的并允许优化磁盘 I/O。

Answer 2

如果DBD::mysql支持DBI的execute_for_fetch（参见DBI的execute_array和execute_for_fetch），这是典型的使用场景，即，您现在有多行可用的插入/更新/删除，并且希望一次性（或批量）发送它们。我不知道 mysql 客户端库是否支持一次性发送多行绑定参数，但大多数其他数据库客户端库都支持并且可以利用 DBI 的execute_array/execute_for_fetch。不幸的是，很少有 DBD 实际上实现了execute_array/execute_for_fetch，并且依赖于 DBI 一次一行地实现它。

Answer 3

吉姆，
弗雷泽克有它。这可能是最优化的：

my $sth = $dbh->prepare( 'INSERT INTO tbl (?, ?, ?)' );
foreach(@array) { $sth->execute( @{$_} ); }
$sth->finish;