###################################################################
WerteAnzeigen:
###################################################################

system("clear");
print "+-----------------------------------------------------+ \n";
print "| E********** / Daten-Verwaltungs-Programm (EZ-DVP) | \n";
print "+-----------------------------------------------------+ \n";
print " \n";
print ">> Statistik aufrufen << \n";
print " \n";

%zuordnung=(
           kunden => {
           file => 'kunden.csv',
           col_names   => ['kdnummer', 'kddatum', 'kdfirma', 'kdstrasse', 'kdhausnummer', 'kdplz', 'kdort', 'kdland', 'kdansprechpartner', 'kdtelefon', 'kdfax', 'kdemail'],
           },
           );
# Verbindung aufbauen
$dbh = DBI->connect("DBI:CSV:", undef, undef, {
                                              # Zeilenseparator
                                              csv_eol => "\x0A",
                                              # Spaltenseparator:
                                              csv_sep_char => ",",
                                              # Verzeichnis mit den Dateien
                                              f_dir => $Bin,
                                              # Zuordnung Dateiname -> Tabelle
                                              csv_tables => \%zuordnung,
                                              # bei Fehlern immer sterben:
                                              RaiseError => 1,
                                              }
                      ) or die($DBI::errstr);
$sth=$dbh->prepare("SELECT COUNT(*) FROM kunden");
$sth->execute();
my ($countKd) = $sth->fetchrow_array;
$countKd = $countKd - 1;
$sth->finish();
$dbh->disconnect();

%zuordnung=(
           kurzgeschichten => {
           file => 'kurzgeschichten.csv',
           col_names   => ['kgnummer', 'kgtitel', 'pakettyp', 'status', 'statusdatum', 'kdnummer', 'kdkonto'],
           },
           );
# Verbindung aufbauen
$dbh = DBI->connect("DBI:CSV:", undef, undef, {
                                              # Zeilenseparator
                                              csv_eol => "\x0A",
                                              # Spaltenseparator:
                                              csv_sep_char => ",",
                                              # Verzeichnis mit den Dateien
                                              f_dir => $Bin,
                                              # Zuordnung Dateiname -> Tabelle
                                              csv_tables => \%zuordnung,
                                              # bei Fehlern immer sterben:
                                              RaiseError => 1,
                                              }
                      ) or die($DBI::errstr);
$sth=$dbh->prepare("SELECT COUNT(*) FROM kurzgeschichten");
$sth->execute();
my ($countKg) = $sth->fetchrow_array;
$countKg = $countKg - 1;
$sth->finish();
$dbh->disconnect();

#Testausgabe

print "Anzahl Kunden :           $countKd \n";
print "Anzahl Kurzgeschichten:   $countKg \n";