Spaltenwerte rechnen - #181765 (Allgemeines zu Perl)

charly54

2015-08-11 02:06

User since
2015-04-24
10 Artikel
BenutzerIn
[default_avatar]

Da keine Daten vorhanden sind, habe ich mal welche erfunden und den Code daran angepasst.
Die beiden auskommentierten "print"-Zeilen (7 und 9), kannst Du auch aktiv schalten, um den Inhalt der Variablen anzeigen zu lassen und Dir damit die Fehlersuche erleichtern.

Code (perl): (dl )

#!/usr/bin/perl

use strict; 
use warnings;

while (<DATA>) {
        #print "$_" ;
        my @columns = split(/\t/, $_);
        #print "$columns[6]\n";
        if($columns[6] <= 70){
                print "$columns[0]$columns[1]$columns[2]$columns[3]$columns[4]$columns[5]$columns[6]$columns[7]"; 
        }
}       

__DATA__ 
100     200     300     400     500     600     700     800
11      222     333     50      54      60      70      90
11      22      33      44      55      66      77      88

Augenblicklich wird nur die mittlere Datenzeile ausgegeben.

Viel Erfolg & Gruß,
charly54