nicht angemeldet
Hi,
Danke erstmal, also David liegt schon richtig die Daten sollen aus der Txt verschwinden. Mit Datenbanken kann ich leider nicht arbeiten, da das nicht zum Auftrag gehört (ist ein Kundenprojekt). Allerdings soll der Kunde einfach über den Browser (FORM) z.B. 1 eingeben und der erste Datensatz soll verschwinden (danach wird die Html neu erstellt, dass hab ich (mit davids hilfe!) schon realisiert).
wenn ich das richtig sehe ist Dein Problem, aus einer Datei eine bestimmte Zeile zu löschen (was völlig unabhängig von einer möglichen Ausgabe geschieht). Nun, dazu gibt es keinen Befehl oder so. Was Du tun mußt, ist die gesamte Datei einlesen und komplett (bzw. ohne die eine Zeile) wieder speichern. In etwa so:
open(READ,$datei) or die "Kann $datei nicht oeffnen: $!";
my @array = <READ>;
close(READ);
open(WRITE,">$datei") or die "Kann $datei nicht zum Schreiben oeffnen: $!";
foreach (@array) {
print unless (!/Pattern für zu löschende Zeile/);
}
close(WRITE) or die "Kann $datei nicht schliessen: $!";
Cheatah