Löschen einer bestimmten Zeile

[Tobias Beck]

Hallo, liebe Forumer/innen,

ich hab malwieder ein Problemchen. Ich möchte eine bestimmte
Zeile aus einer Textdatei löschen. Hier erstmal der Codeschnippsel:

@Zeile = "";
$Tester = 0;

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

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

open(SCHREIBEN, "> shop.txt");
                    print SCHREIBEN $Zeile[0]...$Zeile[$i-1];
                    print SCHREIBEN $Zeile[$i+1]...$Zeile[$ZeilenAnz];
        close(SCHREIBEN);

print "Zeile $i <br>";
        print "ID: $ID <br>";
        print "Datei wurde geloescht!";
        print "<br><br><a href='$EintragUrl'>Zur Shopeingabe</a>";
        $Tester = 1;
        }
}

Es wird erst die Textdatei nach der ID durchsucht und dann soll die
Textdatei geöffnet werden und alle Zeilen reingeschrieben werden außer
die Zeile mit der ID. Ich glaub da liegt der Fehler weil ich mir mit
dem $Zeile[0]...$Zeile[$i-1]; und $Zeile[$i+1]...$Zeile[$ZeilenAnz];
nicht so sicher bin und in der Textdatei dann nach dem Ausführen
nur noch die Zeile nach der zu Löschenden steht.

Also Dankeschön

Ciao,
   Tobi

<img src="http://www383.l7.xodox.com/87ba30.gif" alt="Tobi`s Welt" style="cursor:hand;" onmouseup="window.location.href='http://www383.l7.xodox.com'" onmouseover="window.status='http://www.tobi-beck.de';return true;" onmouseout="window.status='';return true">