Warum schlägt $ dbh-> do ('VACUUM') mit Perls DBD :: SQLite fehl?

Question

Ich möchte VACUUM zu einem bestimmten Zeitpunkt auf einer SQLite-Datenbank unter Perl tun, aber es sagt immer

DBD :: SQLite :: db fehlgeschlagen tun: können sie nicht VACUUM aus einer Transaktion

Also, wie mache ich das?

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

Ich verwende AutoCommit => 0. Und der Fehler passiert während:

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

Answer 1

Ich gehe davon aus Sie haben AutoCommit => 0 in der Verbindungs ​​Aufruf, da die folgenden Werke:

#!/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; 

Sie müssen nicht aufgeben müssen, auf Transaktionen zu können, VACUUM: Sie können Folgendes verwenden, so dass AutoCommit für VACUUM aktiviert ist und nach VACUUM der AutoCommit-Status wieder auf das zurückgesetzt wird, was auch immer es war. Fügen Sie eine Fehlerprüfung hinzu, um zu testen, wenn Sie RaiseError nicht festlegen.

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

Nennen Sie es:

do_vacuum($dbh); 

Answer 2

Der DBI hat Autocommit standardmäßig aktiviert. Schalten Sie es während der connect ab:

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