2012-06-26T09:48:46 topeg

while(! eof(FILEMANAGER)) ist korrekt aber hier nicht nötig. Man kann prüfen, ob die Zeile Überhaubt etwas enthält. Denn auch leere Zeilen in der Datei enthalten Mindestens ein "\n" So kann man schreiben: while(my $zeile = <FILEMANAGER>)

stimmt nicht ganz.
die letzte zeile einer datei hat nicht unbedingt immer einen zeilenumbruch. und wenn dort z.b. eine 0 drinsteht, wäre ein einfaches
while(my $zeile = <$fh>)
theoretisch falsch. es funktioniert aber trotzdem, weil perl in diesem fall automatisch ein defined() herumpackt:
while(defined(my $zeile = <$fh>))