#!/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) { [...]