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.