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

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