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();