Afficher le schéma d’une base SQLite en Perl

An article by Olivier Legras    Pas de Commentaire

#!/usr/bin/perl
use strict;
use DBI;

#Définition des arguments de connexion
my $dbargs = {AutoCommit => 0,
PrintError => 1};

#Connexion à la base SQLite
my $dbh1 = DBI->connect(« dbi:SQLite2:dbname=/chemin/db », » », » »,$dbargs);

#Affichage du message d’erreur si c’est le cas
if ($dbh1->err()) { die « $DBI::errstr\n »; }

#Préparation de la requête
my $sSql= « SELECT * FROM SQLITE_MASTER »;
my $statement = $dbh1->prepare($sSql);

#Exécution de la requête
$statement->execute();

#Affichage du résultat
while (my $row = $statement->fetchrow_arrayref) {
print join(« \t », @$row), « \n »;
}

#Déconnexion
$dbh1->disconnect();