hi,
also im Prinzip ein Setup-Script, auch nützlich bei Änderungen des DB-Schemas durch neue Versionen einer Software. Ja, dafür würde ich auch etwas schreiben, das in die Richtung des von Dir genannten Codes geht. Allerdings würde ich es als separates Script notieren, welches ich ausschließlich bei Bedarf verwende.
Es läuft bei mir auf ein CGI-Script hinaus, was folgendes kann:
- von allen vorhandenen Tabellen die create-Statements ausgeben (z.B. zum Sichern),
- mehrere Tabellen mit einem Rutsch anlegen (statements in hash definiert).
Es ist deswegen ein CGI-Script, weil ich beim Provider keinen Shell-Zugriff habe.
Hier ein kleiner Auszug vom Code:
# IST-Zustand ermitteln (Namen der vorh. Tabellen)
my $aref = $dbh->selectall_arrayref("show tables");
my %tabs = map{$_->[0], 1}@$aref;
# Create-Statements ausgeben
print "\n\nShow create\n\n";
foreach my $t(keys %tabs){
my $statement = qq(SHOW CREATE TABLE $t);
my @row = $dbh->selectrow_array($statement);
print qq(
'$row[0]' => qq(
$row[1]
),
);
}
# so sieht der hash aus, nur noch kopieren
Wieder was geschafft heute ;-)
Hotte
--
Tatort jetzt.
Tatort jetzt.