#!/usr/bin/perl

$eingabe_endung = ".txt";
$ausgabe_excel = ".xls";
$ausgabe_ceda = ".csv";

@parameter = ('Raw', 'Normal');


#Verzeichnis einlesen
opendir(IN, "./in/");
@dateien = readdir(IN);
closedir(IN);

foreach $datei(@dateien) {
	print $datei,"\n";
	if ($datei eq '.' || '..') {
		shift @dateien;
	}
	$datei =~s/\.txt//g;
}
#Nebenprogramme
#Maske erstellen
sub vergleich {
	$vergleich = shift;
	foreach $parameter (@parameter) {
		if ($parameter eq $vergleich) {
			$rueckgabewert = 1;
		} else {
			$rueckgabewert = 0;
		}
	}
}
#Daten in Ausgabearray schreiben
sub elemente_uebernehmen {
	if ($zaehler == 1) {
		shift @eingabe;
	} else {
		push(@ausgabe,shift(@eingabe)."\t"); #\t Tabulator als Trennelement für Excelausgabe
	}
}


#Hauptprogramm
foreach $dateiname(@dateien) {
	$counter == 1;
	@ausgabe = undef;
	@spalten = undef; 
	
	open (EINGABE, "./in/$dateiname".$eingabe_endung)
	or die "Fehler beim öffnen der Datei $!\n";
	
	open(AUSGABEXLS, ">./out/$dateiname".$ausgabe_excel)
	or die "Fehler beim öffnen der Datei: $!\n";
	
	while (<EINGABE>) {
		chomp(@eingabe = split(/\t/));
		print $counter,"\n";
		if ($counter == 1) {
			foreach $datensatz (@eingabe) {
				$rueckgabewert = 0;
				&vergleich($datensatz);
				if ($rueckgabewert == 1) {
					push(@spalten, 0);
				} else {
					push(@spalten, 1);
				}
			}
			$counter++;
		} elsif ($counter > 1) {
			foreach $zaehler (@spalten) {
				&elemente_uebernehmen($zaehler);
			}
			$counter++;
			push(@ausgabe, "\n");
		}
	}
	print AUSGABEXLS @ausgabe;
	
	close (EINGABE)
	or die "Fehler beim schließen der Datei $!\n";
	
	close (AUSGABEXLS)
	or die "Fehler beim schließen der Datei: $!\n";
}