Warteschleife spinnt - oder Perl kann nicht zählen...

[Tek]

FEHLER GEFUNDEN!!!!!

while ($end ne "1") {        
           if ($timeout  =~ /21:/) { $end = 1; }

Hier MÖCHTE ich prüfen, ob es bereits 21:00 Uhr ist....

Na ja, $timeout enthält aber den Wert von localtime()
also
$timeout  => Wed 8 Aug 00:00:00 1999
(wobei 00:00:00 der aktuellen Uhrzeit entspricht).

Somit prüft meine Abfrage folgenden:

Entweder 21:00:00 oder 00:21:00
(21: kommt in beiden fällen vor !)

Richtig müßte es also lauten   >            if ($timeout  =~ /21:00:/) { $end = 1; }
...wenn schon 21:00 Uhr!

Trotzdem allen ein Dankeschön!