sub ablauf{ #Object ist ein Klassenobjekt und enthält alle Eigentschaften my $object = shift; #Überprüfe, ob neue Daten über die FTP-Verbindung geladen werden sollen if($ftp_status eq "aktiv"){ logging("neue Thread fuer " . $object->getName() . " gestartet.", "ftp-sync"); #Starte den FTP-Vorgang transfer($object); } #Überprüfe, ob die Daten weiterverarbeitet werden sollen if($log_status eq "aktiv"){ logging("Changer fuer " . $object->getName() . " gestartet.", "Changer"); #Starte Weiterverarbeitung changer($object); } #Setze Variable , das die Durchführung abgeschlossen ist $arr_ablauf[$object->getID()]=0; }