Löschen einer bestimmten Zeile

[Cheatah]

Hi,

ich hab malwieder ein Problemchen. Ich möchte eine bestimmte
Zeile aus einer Textdatei löschen.

im Common Gateway Interface ist keine Methode zum Bearbeiten von Dateien definiert.

Oder... ach, Du meinst in Perl?

open(LESEN, "< shop.txt");
        while (<LESEN>) {
                push(@Zeile,$_);

push(@Zeile,$_) if ($bedingung);

}
        $ZeilenAnz = $.;

$ZeilenAnz = scalar @Zeile;

close(LESEN);

Dein $bedingung mußt Du natürlich vorher finden. Übrigens bietet es sich der Les- und Wartbarkeit Deiner Scripts wegen an, sich an übliche Konventionen zu halten, wie z.B. Variablennamen nicht groß zu schreiben.

for ($i = $ZeilenAnz; $i > 0; $i--) {
        @Eintrag = split(/&trenn/, $Zeile[$i]);
        if ($Eintrag[0] =~ /&start/ and $Eintrag[2] =~ /$ID/) {

open(SCHREIBEN, "> shop.txt");

Dir ist klar, daß Du die Datei hier gerade in einer for-Schleife stetig neu schreibst?

Cheatah