#!/usr/bin/perl
###########################################
# pg_create_table.pl
# Mike Schilli, 2002 (
[email protected])
###########################################
use warnings;
use strict;
my $USER = "";
my $PASS = "";
use DBI;
my @DSN = ("DBI:Pg:" .
"dbname=keep_on_truckin",
$USER, $PASS);
# Datenbank andocken
my $dbh = DBI->connect(@DSN,
{ PrintError => 0,
AutoCommit => 1,
});
die $DBI::errstr unless $dbh;
$dbh->do("DROP SEQUENCE serialseq");
$dbh->do("DROP TABLE fahrzeuge");
$dbh->do( "
CREATE SEQUENCE serialseq MINVALUE 0;
CREATE TABLE fahrzeuge (
serial INT DEFAULT
nextval('serialseq')
PRIMARY KEY,
kennz VARCHAR(20) UNIQUE,
tonnen INT
) " ) or die $dbh->errstr();
$dbh->disconnect;