mysql - 使用perl批量插入到mysql数据库表

Question

我正在使用一个简单的 perl 脚本来填充 mysql 数据库表中的数百万行。我在脚本中使用 perl DBI 和 DBD::mysql。下面的示例代码

my $dbh = DBI->connect(<DB INFO>);
my $sth;
my $insert_com = "INSERT INTO TAB1 VALUES(?,?,?,?,?)";
for (1..50000000){

   $sth = $dbh->prepare($insert_com);
   $sth->execute(<val1>,<val2>,<val3>,<val4>,<val5>);

}

根据上面的代码，我认为循环的每次迭代都会发送一个提交。我的问题是，是否可以每 n 次迭代发送一次提交？即在向表中插入 n 行后提交。如果可能的话，有人可以告诉我怎么做。提前致谢。干杯...

Answer 1

然后您必须将“AutoCommit 设置为零:

$dbh = DBI->connect($dsn, $user, $password,
                      { RaiseError => 1, AutoCommit => 0 });

并调用所有 n 行 $dbh->commit()

参见 DBI Documentation了解更多详情。