Datei Zeilenweise lesen

[Alain]

hi,
vielleicht so?

use Fcntl ':flock';
open(DATEN,"+<$datei.txt");
flock(DATEN,LOCK_EX); #schütze datei vor anderen zugriffen
while (<DATEN>){
passiertwas() if /$etwas/; #es passiert was,wenn "etwas" in der liste
}
seek (DATEN, 0, 2); #schreibe neuen wert ganz unten,wenn "etwas" nicht gefunden
print DATEN "schreibe was\n";
close (DATEN);
}

gruss
Alain