#!/usr/bin/perl
###########################################
# mysql_create_table.pl
# Mike Schilli, 2002 (
[email protected])
###########################################
use warnings;
use strict;
my $USER = "root";
my $PASS = "";
use DBI;
my @DSN = ("DBI:mysql:" .
"database=keep_on_truckin;" .
"host=localhost", $USER, $PASS);
# Datenbank andocken
my $dbh = DBI->connect(@DSN,
{ PrintError => 0,
AutoCommit => 1,
});
# Fehler beim Verbinden?
die $DBI::errstr unless $dbh;
# Alte Tabelle löschen
$dbh->do("DROP TABLE fahrzeuge");
# Neue anlegen
$dbh->do( "
CREATE TABLE fahrzeuge (
serial INT AUTO_INCREMENT,
kennz VARCHAR(20) UNIQUE,
tonnen INT,
PRIMARY KEY (serial)
) " ) or die $dbh->errstr();
$dbh->disconnect();
