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

sid burn

2009-11-10 12:44

User since
2006-03-29
1520 Artikel
BenutzerIn

user image

Code (perl): (dl )

system('perl', '-i', '-ne', 'print if $. % 2', $datei);

Hrhrhrhr. Naja kleiner Scherz. ;)

Klar wenn er es in einem Programm haben würde und man würde die Option "-i" und "-n" ausschreiben ist es natürlich etwas mehr code, aber auch nicht sehr viel komplexer.

Code (perl): (dl )

use IO::Handle;
use File::Temp;
use File::Spec;
use autodie;

my $file = $ARGV[0];

my $temp = File::Temp->new(DIR => File::Spec->curdir);
open my $fh, '<', $file;
while ( my $line = $fh->getline ) {
    if ( $fh->input_line_number % 2 ) {
        $temp->print($line);
    }
}
close $fh;

rename $temp->filename, $file;

Last edited: 2009-11-10 12:46:00 +0100 (CET)

Nicht mehr aktiv. Bei Kontakt: ICQ: 404181669 E-Mail: perl@david-raab.de