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

我假设你有AutoCommit => 0连接通话,因为以下工作:

#!/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被开启VACUUM和之后VACUUM的AutoCommit状态恢复到不管它是什么.如果未设置,请添加错误检查RaiseError.

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

叫它:

do_vacuum($dbh);