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é :)
Articles récents
- Grep – Extraire toutes les adresses IP d’un fichier text, Json, etc…
- Failed to Start File System Check – Vcenter 7
- Powershell – Se connecter à l’active directory depuis un poste windows 11
- Powershell – Autoriser l’exécution de scripts non signés
- Powershell – Changer le domaine des adresses emails de tous les utilisateurs AD
Partenaires
Mot-clefs
apache
astuce
authentification
bind
cacti
centos
Centreon
certificat
cisco
commande
DNS
erreur
error
esx
interface
Internet
ipv6
Linux
mail
mise à jour
mot de passe
Nagios
network
openldap
Perl
php
plugin
postfix
Powershell
proxy
queue
redirection
reverse
root
Réseau
services
shell
ssh
supervision
Sécurité
ubuntu
Vcenter
Vmware
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