#!/usr/bin/perl
###########################################
# mysql_create_table.pl
# Mike Schilli, 2002 (m@perlmeister.com)
###########################################
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();