Magazine High tech

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

Publié le 13 janvier 2009 par Crocodanser
#!/usr/bin/perluse strict;use DBI; #Définition des arguments de connexionmy $dbargs = {AutoCommit => 0,   PrintError => 1}; #Connexion à la base SQLitemy $dbh1 = DBI->connect(”dbi:SQLite2:dbname=/chemin/db”,”",”",$dbargs); #Affichage du message d’erreur si c’est le casif ($dbh1->err()) { die “$DBI::errstr\n”; } #Préparation de la requêtemy $sSql= “SELECT * FROM SQLITE_MASTER”;my $statement = $dbh1->prepare($sSql); #Exécution de la requête$statement->execute(); #Affichage du résultatwhile (my $row = $statement->fetchrow_arrayref) {  [...]

Vous pourriez être intéressé par :

Retour à La Une de Logo Paperblog

Ces articles peuvent vous intéresser :

A propos de l’auteur


Crocodanser 15 partages Voir son profil
Voir son blog

l'auteur n'a pas encore renseigné son compte l'auteur n'a pas encore renseigné son compte l'auteur n'a pas encore renseigné son compte