#! 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-15 bin/")
or die "Konnte Datenbank nicht oeffnen! $!";

# Vorhandene Tabelle droppen
$dbh->do(qq{DROP TABLE Kunden})
or die "Fehler beim Löschen der Tabelle Kunden: $DBI::errstr ";

# Tabelle Kunden anlegen
$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;
use HTML::Table;

print header(),start_html();

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

my $stmt = "SELECT * FROM Kunden";
my $sth = $dbh->prepare($stmt);
$sth->execute();

my $table2 = new HTML::Table;
$table2->addRow($sth->{NAMES});
while(my @cell_values = $sth->fetchrow_array()){
    $table2->addRow(@cell_values);
}

$table2->print;

$dbh->disconnect;

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

print header(),start_html();

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

my $stmt = "SELECT * FROM Kunden";
my $sth = $dbh->prepare($stmt);
$sth->execute();

my $table2 = new HTML::Table;
$table2->addRow($sth->{NAMES});
while(my @cell_values = $sth->fetchrow_array()){
   $table2->addRow(@cell_values);
}

$table2->print;

$dbh->disconnect;