Discussion :

[WhoIsTiti]

Bonjour,
Mysql (pg également) permet de commenter les tables d'une bd (ainsi que les champs).
Question : Peut on avec perl récupérer ces commentaires?
Si non, y'a t'il un SGBD qui le permette ?
actuellement, le code suivant me permet juste de récupérer la structure de chaque table :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
if ($dbh != 0) {
            my $sth = $dbh->prepare("describe $tablename");
            $sth->execute;
            my $numRows = $sth->rows;            
            if ($numRows > 0) {
                print $TABLEINDEX "<table border=1>";                
                while (my @row = $sth->fetchrow_array()) {
                    print $TABLEINDEX "<tr>";
                    foreach my $col (@row) {
                            $col = "&nbsp;" unless defined $col;
                            $col = "&nbsp;" if ($col eq "");
                            print $TABLEINDEX "<td>$col</td>";
                    }
                    print $TABLEINDEX "</tr>\n";
                }
                print $TABLEINDEX "</table>";
            }
            $sth->finish;
        }

J'ai pas mal cherché sur le forum/net, mais rien trouvé.
Merci de votre aide.

[djibril]

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

SHOW TABLE STATUS FROM TABASE

te permet d'avoir toutes les informations des tables d'une base de données

[WhoIsTiti]

Merci djibril
En plus ça m'a mise sur la voie pour récupérer les commentaires par table avec :
SHOW FULL COLUMNS FROM TABLE_NAME FROM DATABASE_NAME.
Bon, je n'ai plus qu'à me pencher sur le script de phpxref pour lui faire afficher l'ensemble des données qui m'interesse.

[WhoIsTiti]

Alors, après avoir fait des recherches via la doc mySql & perl, je suis arrivé à obtenir ce que je recherchais, c.a.d :
-Obtenir le commentaire sur chaque table de la bd.
-Obtenir les commentaires sur chaque champs des tables.
Voici le code que j'ai développé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
print $TABLEINDEX "<h3>Description de la table :</h3>\n\n";
        #Modif -> on récupère la description de la table.
        if ($dbh != 0) {
            my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';           
            my $row = $dbh ->selectrow_array($sql);
            print $TABLEINDEX "$row";
            }
        #Modif -> on exploite uniquement les champs interessants de la table.
        if ($dbh != 0) {            
            my $sql = qq'SELECT COLUMN_NAME, COLUMN_TYPE, IS_NULLABLE, COLUMN_KEY, COLUMN_DEFAULT, COLUMN_COMMENT FROM INFORMATION_SCHEMA.COLUMNS WHERE table_name = \'$tablename\'';           
            $sth = $dbh->prepare($sql);            
            $sth->execute;           
            my $numRows = $sth->rows;
            if ($numRows > 0) {
            print $TABLEINDEX "<table border=1>";            
            while(my @row = $sth->fetchrow_array()){                
            print $TABLEINDEX "<tr>";
            foreach my $col (@row) {            
            $col = "&nbsp;" unless defined $col;
            $col = "&nbsp;" if ($col eq "");            
            print $TABLEINDEX "<td>$col</td>";
            }
            print $TABLEINDEX "</tr>\n";
            }
            print $TABLEINDEX "</table>";
            }
            $sth->finish;            
        } else {
            print $TABLEINDEX "Description de la table non disponible!<br><br>";
        }

visuellement, le résultat :

Puis je optimiser ce code
une seule requète au lieu de deux?
Ensuite, dans cette requète :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';

que signifie 'qq'
Sans ce 'qq', j'ai une erreur de syntaxe. Je l'ai mis après l'avoir vu dans un script trouvé sur le net, mais sans savoir exactement sa portée.
Désolé pour les questions idiotes ...
Merci.

[Jasmine80]

que signifie 'qq'
Sans ce 'qq', j'ai une erreur de syntaxe.

qq permet d'encader ta requête de doubles quotes et permet ainsi l'interprétation des variables.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 my $sql = qq'SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'';

équivaut à

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 my $sql = "SELECT TABLE_COMMENT FROM INFORMATION_SCHEMA.TABLES WHERE table_name = \'$tablename\'";

[WhoIsTiti]

merci Jasmine pour les précisions concernant la fonction qq.
Qu'en est il de l'optimisation de mon code Dois je garder les deux requêtes (exploitant des méta données) ou est il possible de n'en faire qu'une Peut être que le code que je fournis n'est pas assez pertinent pour donner une réponse détaillée
cdt