wurf
06.09.03, 13:17
Hallo!
Ich möchte mit Perl eine bestimmte Zeile aus einer Datei löschen also zb. die Zeile 5 aus der Datei 'datei.txt' soll gelöscht werden. Leider bin ich in Perl absoluter Neuling.
Mein bisheriger Ansatz:
#!/usr/bin/perl
$loeschzeile = 5; #Zeile 5 soll gelöscht werden
my $zeilennr = 1;
my $FILE;
open(FILE, "< datei.txt");
while(<FILE>) {
# in dieser while-Schleife sollte immer wenn $zeilennr nicht $loeschzeile ist die derzeitige
# Zeile (also $_, oder?) in ein neues Array geschrieben werden. Danach wird $zeilennr um
# eins erhöht, und die schleife beginnt von vorne.
}
close(FILE);
Danach soll jetzt dieses mit allen Zeilen außer der Fünften gefüllte Array wieder in die Datei datei.txt geschrieben werden.
Bitte helft mir wie ich die das jetzt umsetzen kann (inhalt der while-schleife und array-in-datei-schreiben).
Vielen Dank für eure Hilfe!
Michi
Ich möchte mit Perl eine bestimmte Zeile aus einer Datei löschen also zb. die Zeile 5 aus der Datei 'datei.txt' soll gelöscht werden. Leider bin ich in Perl absoluter Neuling.
Mein bisheriger Ansatz:
#!/usr/bin/perl
$loeschzeile = 5; #Zeile 5 soll gelöscht werden
my $zeilennr = 1;
my $FILE;
open(FILE, "< datei.txt");
while(<FILE>) {
# in dieser while-Schleife sollte immer wenn $zeilennr nicht $loeschzeile ist die derzeitige
# Zeile (also $_, oder?) in ein neues Array geschrieben werden. Danach wird $zeilennr um
# eins erhöht, und die schleife beginnt von vorne.
}
close(FILE);
Danach soll jetzt dieses mit allen Zeilen außer der Fünften gefüllte Array wieder in die Datei datei.txt geschrieben werden.
Bitte helft mir wie ich die das jetzt umsetzen kann (inhalt der while-schleife und array-in-datei-schreiben).
Vielen Dank für eure Hilfe!
Michi