Bestimmte Zeilen und Spalten aus txt. Datei in eine andere txt.-Datei schreiben - #119160 (Allgemeines zu Perl)

murphy

2009-02-26 01:11

User since
2004-07-19
1776 Artikel
HausmeisterIn

@leo11: Ich bezweifle ja, dass der Ausdruck $spalten[2] .. $spalten[5] wirklich das tut, was hier gewuenscht ist.

Mein Vorschlag fuer eine kompakte Loesung als Filter waere folgender:

Code (perl): (dl )

use strict;
use warnings;

use constant {
    COUNT => 10,
    SELECT => [ 2 .. 5 ]
};

use Tie::File;

tie my @lines, 'Tie::File', \*STDIN;

print join(',', (split /\s+/)[@{(SELECT)}]), "\n"
    foreach (@lines[@lines - COUNT .. $#lines]);

When C++ is your hammer, every problem looks like your thumb.