#!usr/bin/perl

use strict;
use warnings;
use DBI;
my $i;


#-----------------DATENBANK------------------#


my $database = DBI->connect("dbi:SQLite:dbname=datenbank","","") 
	or die "Fehler bei Datenbankverbindung: $!";
	
# Erzeuge Tabelle
my $sql = 'CREATE TABLE IF NOT EXISTS datenbank.namen (namen_id INTEGER, name CHAR(255))';
$database->do($sql) 
	or die $database->errstr; 

#------------------DATEI-----------------------#
my $fh;
open($fh,'<', "./Namen") or die "Datei $fh kann nicht geoeffnet werden! $!"; #Datei öffnen
my @datei_inhalt;
@datei_inhalt=<$fh>;  #Inhalt von Datei in Array datei_inhalt speichern
close($fh) or die "Datei $fh kann nicht geschlossen werden!: $!";

# Insert vorbereiten
$sql = 'INSERT OR REPLACE INTO datenbank.namen(namen_id, name) VALUES (?, ?)';
$database->prepare($sql) 
	or die $database->errstr;

foreach $i(0..$#datei_inhalt)
{
        print "DEBUG: $i $datei_inhalt[$i]";
	# Insert mit den Daten ausführen
	$database->execute($i, $datei_inhalt[$i]) 
		or die $database->errstr;
}

#------------------DATEI-ENDE--------------------#


$database->disconnect 
	or $database->errstr;