Jan
13
2009
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();
Laissez un commentaire
Publicité :)
Partenaires
Mot-clefs
apache
bind
cacti
centos
Centreon
cisco
commande
configuration
erreur
error
esx
fichier
interface
Internet
ldap
limite
Linux
log
mise à jour
Nagios
network
openldap
Perl
php
plugin
postfix
proxy
redirection
reverse
root
Réseau
services
shell
ssh
ssl
supervision
Sécurité
ubuntu
Utilitaire
Vcenter
virtual center
Vmware
vsphere
Web
windows
Mes derniers tweets
-
RT @BSE_Anoss: Lancement de #Starwheels le 19 Juin à 20h30 sur twitch/oganoss ! C'est mon plus gros projet, j’espère que vous sere… https://t.co/NjLCKbaHXA