weniger Code durch for-Schleife??

[Frank Schönmann]

hi!

perldoc perllol
LOL? Gibt's in diesem Part der Perldoc was zu lachen? ;-)

LOL = list of lists :)

for (%Uhrzeit)
{
if ($_ =~ /^12:.*/)  # Alle um 12 Uhr (12:00:00 bis 12:59:59)
  { push (@Um12, $Uhrzeit{$_});
  }
}
map { $TotalUm12 +=$_;}@Um12;
print "Total der Besucher in der 13. Stunde: $TotalUm12<br>\n";

Vielleicht so:

for (%Uhrzeit) {
  m/^(\d+?):.*/;
  $Total{$1}++;
}
print "Total der Besucher in der 13. Stunde: ", $Total{12};

bye, Frank!