#!/usr/bin/perl

# sollte in keinem Script fehlen
use strict;
use warnings;

# DBI Modul Laden
use DBI;

# Verzeichnis mit dem Script finden.
# "." muss nicht immer das Verzeichnis mit dem Script sein
use FindBin '$Bin';

# Sollte man machen.
# es hilft die Dateinamen
# von den Tabellennamen zu trennen.
my %zuordnung=(
    prospects => {
      file => 'prospects.csv',
      col_names   => [qw(
        Name Contact Foo Bar Bam
      )],
    },
    foo       => {
      file => 'foo.csv',
      col_names   => [qw(
        foo bar bam
      )],
    },
    bar       => {
      file => 'bar.csv',
      col_names   => [qw(
        foo bar bam
      )],
    },
    #...
  );


# Verbindung aufbauen
my $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);

{
  # Testausgabe
  my $sth=$dbh->prepare('SELECT * FROM foo');
  $sth->execute();
  while(my @row = $sth->fetchrow_array)
  { print join('; ',@row)."\n"; }
  $sth->finish;
}

{
  my $sth = $dbh->prepare("SELECT * FROM prospects WHERE name LIKE 'G%'");
  $sth->execute();
  while (my $row = $sth->fetchrow_hashref)
  {
    print("name = $row->{Name}  contact = $row->{Contact}. "\n");
  }
  $sth->finish();
}

$dbh->disconnect();