#! 
1 f:/Perl/bin/perl
2 use strict; 
3 use warnings;
4 use CGI qw(:standard); 
5 use CGI::Carp qw(fatalsToBrowser); 
6 use DBI; 
7
8
9 print header()
10
11 my $dbh;
12 my $sth;
13
14 my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-15 bin/") 
16 or die "Konnte Datenbank nicht oeffnen!\n$!"; 
17
18 my $sth = $dbh->prepare (<<SQL) or die "Konnte 19Datenbank nicht erstellen!\n$!"; 
20
21 DROP TABLE Kunden
22
23 CREATE TABLE Kunden
24 ( DHL   integer , 
25 K_N integer, 
26 Hellmann integer)
27 SQL
28
29 $sth->execute(); 
30 $sth->finish(); 
31
32 $dbh->disconnect;

9 print header()
10
11 my $dbh;
12 my $sth;

$dbh->do(qq{DROP TABLE Kunden}) 
  or die "Fehler beim Löschen der Tabelle Kunden: $DBI::errstr\n";
$dbh->do(qq{CREATE TABLE Kunden ( ...)})
  or die "Fehler beim Anlegen der Tabelle Kunden: $DBI::errstr\n";

#! f:/Perl/bin/perl
use strict; 
use warnings;
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 
use DBI; 

print header();

my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/") 
or die "Konnte Datenbank nicht oeffnen!\n$!"; 

$dbh->do(qq{DROP TABLE Kunden})
  or die "Fehler beim Löschen der Tabelle Kunden: $DBI::errstr ";
$dbh->do(qq{CREATE TABLE Kunden ( 
DHL   integer , 
K_N integer, 
Hellmann integer)})
  or die "Fehler beim Anlegen der Tabelle Kunden: $DBI::errstr ";

$dbh->disconnect;

#! f:/Perl/bin/perl
use strict; 
use warnings;
use CGI qw(:standard); 
use CGI::Carp qw(fatalsToBrowser); 
use DBI; 

print header();

my $dbh = DBI->connect("DBI:CSV:f_dir=f:/Apache2/cgi-bin/") 
or die "Konnte Datenbank nicht oeffnen!\n$!"; 

my $sth = $dbh->prepare (<<SQL) or die "Konnte 19Datenbank nicht erstellen!\n$!";

$dbh->do(qq{DROP TABLE Kunden})
  or die "Fehler beim Löschen der Tabelle Kunden: $DBI::errstr ";
$dbh->do(qq{CREATE TABLE Kunden ( 
DHL   integer , 
K_N integer, 
Hellmann integer)})
  or die "Fehler beim Anlegen der Tabelle Kunden: $DBI::errstr ";
SQL

$sth->execute();
$sth->finish(); 

$dbh->disconnect;