#!usr/bin/perl

use strict;
use warnings;
use DBI;

my $i;


#-----------------DATENBANK-VERBINDUNG-----------------#


my $database = DBI::->connect("dbi:SQLite:dbname=datenbank.db","","")
or die "Fehler bei Datenbankverbindung!";

# Erzeuge Tabelle falls noch keine mit dem namen schueler existiert
my $sql = 'CREATE TABLE IF NOT EXISTS schueler (namen_id INTEGER,klasse CHAR(255), name CHAR(255))';
$database->do($sql)
or die $database->errstr;

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

# Insert vorbereiten
$sql = 'INSERT OR REPLACE INTO schueler (namen_id,klasse, name) VALUES (?, ?, ?)';
my $statement_handler = $database->prepare($sql)
or die $database->errstr;

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


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