Opened by oruebe at 2004-12-09 16:56
User since
2004-07-09
46 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2004-07-09
46 Artikel
BenutzerIn
"geht" bedeutet, dass das Script läuft. Da aber diese Zeile fehlt, sind die ausgegebenen Werte falsch, da der Dienstag also auch die Werte vom Montag noch enthält.
Aber jetzt mal ganz konkret: Es geht um eine Statistik, die besagt, an welchen Tagen und in welchen Stunden eine Datei wie häufig aufgerufen wurde. Für jeden Aufruf habe ich time (also die Sekunden) in einer Zeile einer Textdatei stehen. Hier der Code:
Bearbeitet von Crian: schließenden CODE-Tag spendiert\n\n
<!--EDIT|Crian|1102607735-->
Aber jetzt mal ganz konkret: Es geht um eine Statistik, die besagt, an welchen Tagen und in welchen Stunden eine Datei wie häufig aufgerufen wurde. Für jeden Aufruf habe ich time (also die Sekunden) in einer Zeile einer Textdatei stehen. Hier der Code:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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>";Bearbeitet von Crian: schließenden CODE-Tag spendiert\n\n
<!--EDIT|Crian|1102607735-->