Wert aus Zeile auslesen in Abhängigkeit von einem Wert der Zeile darüber? - #146374 (Allgemeines zu Perl)

FIFO

2011-03-11 00:19

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Hi,

Du könntest die Daten der vorangehenden Zeile in einem eigenen Array außerhalb der Schleife speichern:

Code (perl): (dl )

my @auslese_alt;
my @auslese_neu;

READ_LINE:
while (my $line = <VP2>) {
    
    @auslese_alt = @auslese_neu;  # Kopie der letzten Zeile bzw. Felder
    
    $zaehler++;                                         
    next READ_LINE if $zaehler < $anfang or $zaehler > $ende;
    
    chomp($line);
    
    @auslese_neu = split (/\t/, $line);                                 
    next READ_LINE unless @auslese_alt; # noch keine Vor-Daten eingelesen
    
    if ($auslese_alt[$spalt7] eq "j") {
        if ($auslese_neu[$spalt2] eq "Gewonnen"){
            print RELRE "$auslese_neu[$spalt1]\t";
        }       
        elsif ($auslese_neu[$spalt2] eq "Verloren") {
            # mach was anderes
        }
    }
}

Wenn Du in Perl weiterkommen willst, ist unbedingt empfehlenswert, sich mit use strict; und use warnings; abzusichern :)

Viel Erfolg noch, Gruß FIFO

Everyone knows that debugging is twice as hard as writing a program in the first place. So if you're as clever as you can be when you write it, how will you ever debug it? -- Brian Kernighan: "The Elements of Programming Style"