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 :
J'ai pas mal cherché sur le forum/net, mais rien trouvé.
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 = " " unless defined $col; $col = " " if ($col eq ""); print $TABLEINDEX "<td>$col</td>"; } print $TABLEINDEX "</tr>\n"; } print $TABLEINDEX "</table>"; } $sth->finish; }
Merci de votre aide.
Partager