Pourquoi $ dbh-> do ('VACUUM') échoue-t-il avec DBD :: SQLite de Perl?

Question

Je veux faire VACUUM à un certain temps sur une base de données SQLite en Perl, mais il dit toujours

DBD :: SQLite :: db n'échoué: ne peut pas VACUUM dans une transaction

Alors, comment je fais ça? Je utilise AutoCommit => 0 J'utilise AutoCommit => 0. Et l'erreur se produit pendant:

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

Answer 1

Je suppose que vous avez AutoCommit => 0 dans l'appel de connexion parce que les travaux suivants:

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

Vous ne doivent pas renoncer à des transactions de pouvoir VACUUM: Vous pouvez utiliser ce qui suit pour que AutoCommit soit activé pour VACUUM et après l'VACUUM l'état AutoCommit est rétabli à ce qu'il était. Ajoutez une vérification d'erreur au goût si vous ne définissez pas RaiseError.

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

Appelez-le:

do_vacuum($dbh); 

Answer 2

DBI a activé la validation automatique par défaut. Éteignez-le lors de la connexion:

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