Jan
13
2009

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


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

Au sujet de l'auteur: Olivier Legras

Auteur de ce Blog, je partage quelques unes de mes notes que je juge utile à vous comme à moi. Je suis très heureux de voir que mon blog a de plus en plus d'affluence. Merci à vous!

Laissez un commentaire