 Einzelne Zeile einer Datei löschen
|
Seitenanfang |
| Hi. Ich möchte ein File (z.B. test.txt) öffnen und dann eine bestimmte Zeile (z.B. die 20 igste) löschen.
Wie realisiere ich das am einfachsten?
tia
mfg Franz Müllner
Datum: 15.03.2006-21:47
|
re: Einzelne Zeile einer Datei löschen
|
Seitenanfang |
| Probier das mal : #!/usr/bin/perl
use strict;
use warnings; use Tie::File; tie my @datei, 'Tie::File', 'test.txt' or die "Konnte die Datei nicht einlesen."; splice @datei, 2, 1; # ab der dritten zeile eine folgende zeile löschen untie @datei;
Datum: 16.03.2006-00:25
|
re: Einzelne Zeile einer Datei löschen
|
Seitenanfang |
| Hi, dazu hätte auch ich geraten. Doku unter:
http://search.cpan.org/~mjd/Tie-File-0.96/lib/Tie/File.pm
oder
perldoc Tie::File -uw
Datum: 16.03.2006-02:33
|
re: Einzelne Zeile einer Datei löschen
|
Seitenanfang |
Danke für die schnellen Antworten.
Werd das ganze gleich einmal ausprobieren.mfg
Datum: 16.03.2006-07:04
|
