Zeile schreiben

[Bjoern]

Hallo

Ist es und wenn ja wie moeglich mit Cgi/Perl moeglich in eine Datei zu schreiben und zwar beispielsweise nur die 23. Zeile zu ueberschreiben?

meine lösung ist vielleicht nicht optimal, funktioniert aber ähnlich.

open(FILE,"<".$filename)
$i=0;
do{
  $i++;
  $line = readline(FILE);
  if ($i == 23){
    $line = "neue zeile 23";
  }
  push(@whole_file,$line);
} while($line);
close(FILE);
open(FILE,">".$filename)
foreach(@whole_file){
  print FILE $_
}
close(FILE);

so. hab das mal rasch zusammengebastelt. es braucht natürlich noch ein error-handling, von wegen file kann nicht geöffnet werden und so.

grüssle
bjoern