sql2html : Convertir un dump SQL en un fichier html lisible facilement

On obtient ainsi une vue intuitive de la structure de la base de donnée.

#!/usr/bin/env perl

# 07/06/2010 -- François SERMAN
#
# sql2html.pl 0.1
#
# Permet de faire un rendu html d'un dump mysql (sans prendre en compte les contraintes)

if ($#ARGV+1==0) { print "Usage: sql2html.pl <<fichier sql>>\n"; exit 1;}

my $fichier = $ARGV[0];
my $open = 0;

open(FIC, $fichier);

while (<FIC>) {
        if ($open == 0)
        {
                if (/CREATE TABLE `([_a-zA-Z0-9]+)`/) {
                        $open = 1;
                        print '<table border="1"><tr><td colspan="2">Table: ' .$1 . '</td></tr>' . "\n";
                        print '<tr><strong><td>Nom</td><td>Type</td></strong></tr>' . "\n";
                }
        }
        else
        {
                if (/^\)/) { $open = 0; print "</table>\n\n<p>&nbsp;</p>\n\n"; }
                elsif (/^\s+\`([_a-zA-Z0-9]+)` ([^ ]+)/)
                {
                        print '<tr><td>' . $1 . '</td><td>' . $2 . '</td></tr>' . "\n";
                }
        }
#       print $_;
}
if ($open) { print '</table>' . "\n" };
close (FIC);