为什么 $dbh->do('VACUUM') 使用 Perl 的 DBD::SQLite 会失败？

Question

我想在 Perl 下的 SQLite 数据库上的某个时间执行 VACUUM ，但它总是说

DBD::SQLite::db 失败：无法从事务内进行 VACUUM

那么我该如何执行此操作？

my %attr = ( RaiseError => 0, PrintError => 1, AutoCommit => 0 );
my $dbh = DBI->connect('dbi:SQLite:dbname='.$file'','',\%attr) 
    or die $DBI::errstr;

我正在使用 AutoCommit => 0 。并且错误发生在：

$dbh->do('DELETE FROM soap');
$dbh->do('DELETE FROM result');
$dbh->commit; 
$dbh->do('VACUUM');

Answer 1

我假设您有 AutoCommit => 0 在 connect 调用中，因为以下方法有效：

#!/usr/bin/perl

use strict;
use warnings;

use DBI;

my $dbh = DBI->connect('dbi:SQLite:test.db', undef, undef,
    { RaiseError => 1, AutoCommit => 1}
);

$dbh->do('VACUUM');

$dbh->disconnect;

您不必放弃事务即可 VACUUM：您可以使用以下内容，以便 AutoCommit code> 为 VACUUM 打开，并且在 VACUUM 之后，AutoCommit 状态将恢复到原来的状态。如果您未设置 RaiseError，请添加错误检查。

sub do_vacuum {
    my ($dbh) = @_;
    local $dbh->{AutoCommit} = 1;
    $dbh->do('VACUUM');
    return;
}

称之为：

do_vacuum($dbh);

Answer 2

默认情况下，DBI 已打开自动提交。连接期间将其关闭：

my $dbh = DBI->connect($dsn, $user, $pass, { AutoCommit => 0 });