jede 2. Zeile in einer Text Datei löschen - #128060 (Allgemeines zu Perl)

2009-11-10 10:40

User since
2003-08-04
12208 Artikel
Admin1

Code (perl): (dl )

use Tie::File;
tie my @array, "Tie::File", $filename or die $!;
my @tmp = map { $array[ $_ * 2 ] } 0 .. $#array / 2;
@array = @tmp;

edit: renees lösung dauert länger, weil bei jedem splice die datei neu geschrieben wird. meine lösung braucht mehr speicher, und zwar die grösse der datei verdoppelt.
bei kleinen dateien ist es egal, welche lösung du nimmst.
Last edited: 2009-11-10 10:42:07 +0100 (CET)

Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:

Wie frage ich & perlintro Wiki:

brian's Leitfaden für jedes Perl-Problem