Zeitgesteuertes Starten einer Subroutine - #66547 (Allgemeines zu Perl)

AndreasM

2006-05-24 14:32

User since
2005-10-08
31 Artikel
BenutzerIn

Hallo zusammen,

ich habe hier weniger ein Problem als vielmehr eine Verständnisfrage.

Es geht mir um folgendes: Ich möchte aus einem Skript einen Dauerläufer machen. Zu einer bestimmten Uhrzeit soll es mir den Inhalt verschiedener Verzeichnisse auslesen und nachschauen, ob bestimmte Dateien ordnungsgemäss wohin kopiert wurden.
Ich muss also regelmässig nach der Uhrzeit schauen.
Datum und Uhrzeit, Kalenderwoche etc. kann ich auslesen.

Im Moment sieht meine Lösung so aus:

Code: (dl )

SCHLEIFE:
($Minuten, $Stunden, $Tag, $Monat, $Jahr, $Woche, $Datum)=Datum();
my $z=1;
until (($Stunden == 16) and ($Minuten == 00)){
                          print"$Stunden:$Minuten. Die Schleife wartet zum $z. mal...\n";
                          $z++;
                          sleep 30;
                          ($Minuten, $Stunden, $Tag, $Monat, $Jahr, $Woche, $Datum)=Datum();
                          }
werteeinlesen();
pruefen();
goto SCHLEIFE;

Ich dachte zuerst an eine Subroutine zur Zeitprüfung, die sich selbst rekursiv aufruft. Aber bekomme ich mit einer rekursiven Subroutine nicht eventuell (irgendwann) ein Speicherproblem?
Oder hat einer von Euch ggf. eine Variante ohne goto?

Grüße
AndreasM

[edit]Mit einem Cronjob wird das ganze leichter. Ich weiss...[/edit]\n\n