##-------------Verzeichnisse holen
opendir(LOGFILE,"*****") or die "Cant open File Directory\n";
@dir=readdir(LOGFILE);
close LOGFILE;
shift @dir;
shift @dir;

##------------Datei öffnen 
print "Open Dirs \n";
print "-------\n";
for $i1(0..$#dir) 
{
open(LOGFILE2,"<*****") or die "cant open txt \n";
$file = LOGFILE2;
print $dir[$i1];print "\n";
parseData();
##------------Test
if (exists $outputTable{"4"}) {
	$outputTable{"3"}=$outputTable{"3"}+$outputTable{"4"};
	delete $outputTable{"4"};
}
##------------Ausgabe in String
while (my($Name,$Wert)=each%outputTable)
{print "Tag: ";print"$Name, $Wert\n";
	$text = $text.$Wert."	";
}
$text = $text.$dir[$i1]."\n";
print "--------------------------\n";
%outputTable =();
close LOGFILE2;
}

#Daten schreiben
open (TXT, ">C:/Temp/archiv4/Daten.txt") or Win32::MsgBox("Die Ausgabedatei konnte nicht erzeugt werden: $!\n");
print TXT $text;
close TXT;

#sub to extract the needed Data and made math functions
sub parseData{
	
print "Report: parsing $file\n";
    #read file
    my $line; my @fullTable;
	for $line (<LOGFILE2>)
	{
		 push(@fullTable,$line);
	}	
	#finde Positionen von **** and **** durch erste Zeile
	print "zZz\n";
}

for $line (<LOGFILE2>)

"zZz\n";