foreach $DATEIEN(<../meinOrdner/*.dat>) {
$itemnummer=$DATEIEN;
$itemnummer =~ s/..\/meinOrdner\///;
$itemnummer=~ s/.dat//;
print "$itemnummer";

open(ITEM,"../meinOrdner/$itemnummer.dat");
@ITEMZEILEN = <ITEM>;
close(ITEM); 
@STD="";
@TAG="";
foreach $ITEM (@ITEMZEILEN) {
@DATEN = split(/==/, $ITEM);

($sec,$min,$hour,$mday,$mon,$year,$wday,$ydat,$isdst)=localtime($DATEN[0]); $jahr=$year; $tag=$mday; $jahr=$year; $monat=$mon+1; $jahr=$year +1900; 
$aufgerufen++;
$STD[$hour]++;
$TAG[$wday]++;
}
$a=0;
while ($a<24) {print "$a: $STD[$a]\n";$a++}
print "Mo: $TAG[0]<BR>";
print "DI: $TAG[1]<BR>";
print "Mi: $TAG[2]<BR>";
print "Do: $TAG[3]<BR>";
print "Fr: $TAG[4]<BR>";
print "Sa: $TAG[5]<BR>";
print "So: $TAG[6]<BR>";