#!/usr/bin/perl -w

..
..
..
for (my $i = .......) {
 for (my $j = ........) {
  for (my $k = ........) {
   for (my $l = ..........) {
    for (my $m = .........) {
     for (my $n = ............) {
		
		system("bt_csv.pl --pairs $i,$j,$k,$l,$m,$n >> bt_csv.out");
		bt_in_db ($i, $j, $k, $l, $m, $n);
     }
    }
   }
  }
 }
}


# Funktion zum Abspeichern der Daten in die SQLite Datenbank
sub bt_in_db {
	my %ergebnis = ();
	
	open (BTOUT, "<bt_csv.out");
	# bt-ausgabedatei zeilenweise einlesen
	while (my $zeile = <BTOUT>) {
		# jeweilige Werte mittels Muster entnehmen und Variablen zuweisen
		if ($zeile = /(.+)\s=\s(.+)/) {
			$ergebnis{$1} = $ergebnis{$2};
		}
	}
	close (BTOUT);
	# Schleifenargumente und Variablen als einzelne Zeile in SQLite-Datenbank schreiben
		# WICHTIG : die Datenbanktabelle MUSS derzeit bereits vorhanden sein ! (macht das Sinn ?)
	$dbh->do("INSERT INTO btergebnis VALUES($_[0],$_[1],........)");

}