nicht angemeldet
Nochmals hallo (mein Rehuhu beachtet ja keiner <?m=147773&t=28368> :-( ) !
for (keys %Uhrzeit) {
m/^(\d+?):.*/;
$Total{$1} += $Uhrzeit{$_};
}
print "Total der Besucher in der 13. Stunde: ", $Total{12};
Mit meiner Antwort vorhin war ich etwas zu voreilig. Denn $1 ist ja zweistellig. Zwangslaeufig, denn d+? ist entweder ZifferBuchstabe oder ZifferZiffer (also einigen wir uns auf zweizeichig *gg*). Und da kann ich die Uhrzeiten kleiner als 10 (z.B. **09**:20:33)gar nicht abfragen. Denn beispeilsweise $Total{9} ist null (kein Wunder, siehe eben, 9 gibt's ja nicht) und $Total{09} ist ja nicht erlaubt.
Geholfen habe ich mir mit folgendem, ich hoffe, das ist nicht zu "unperlig":
for (keys %Uhrzeit) {
if ($_ =~ /^(\d+?):.*/) {
$Total{$1} += $Uhrzeit{$_};
}
if ($_ =~ /^0([0-9]):.*/) {
$Total{$1} += $Uhrzeit{$_};
}
}
Klappen tut es jedenfalls. Mir geht's nur darum, ob's sauber ist.
Patrick (der heute zwischen Homepage-Besprechung am Telefon mit Kundin, die den PC nur Sonntags einschaltet, wenn das Datum durch 4 teilbar ist und das nur in einem Schaltjahr und Testen am Counter nicht mehr weiss wo <html> und </html> ist...)