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



Je soutiens

Publicité :)

Mes derniers tweets