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

FIFO

2011-03-11 13:39

User since
2005-06-01
469 Artikel
BenutzerIn

user image

Was funktioniert denn nicht? Welche Fehlermeldungen erhältst Du?
Es ist immer schwierig, die Gedanken hinter einem Codebruchstück zu erraten.

Also bau am besten eine lauffähige Miniversion und poste die hier.
Tip: statt einer Datei kannst Du dabei das DATA-Segment verwenden. Als Beispiel:

Code (perl): (dl )

#!/usr/bin/perl

use warnings;
use strict;

my @alte_zeile;
my @neue_zeile;
my $spalte_i = 2;  # 3. Feld in der Zeile
my $spalte_k = 4;  # 5. Feld in der Zeile
my $zaehler;

while (my $line = <DATA>) {  # statt Datei
    chomp $line;
    $zaehler++;
    @alte_zeile = @neue_zeile;
    @neue_zeile = split(":", $line);
    next unless @alte_zeile;
    if ($alte_zeile[$spalte_i] eq "12") {
        print "Treffer '12' in Spalte $spalte_i\n";
        my $feld_k_neu = $neue_zeile[$spalte_k];
        if ($feld_k_neu eq "x") {
            print "\tTreffer 'x' in in Zeile $zaehler, Spalte $spalte_k\n";
        }
        elsif ($feld_k_neu eq "w") {
            print "\tTreffer 'w' in in Zeile $zaehler, Spalte $spalte_k\n";
        }
        else {
            print "\tKein Treffer in Zeile $zaehler.\n";
        }
    }
}
__DATA__
zeile1:foo:2:bar:x:test
Zeile2:baz:12:bla:d:blub
zeile3:urbi:7:orbi:w:maus
zeile4:lolek:1:bolek:y:elefant
zeile5:foo:2:bar:x:test
Zeile6:baz:12:bla:d:blub
zeile7:urbi:7:orbi:x:maus
zeile8:lolek:1:bolek:y:elefant

Ausgabe:

Code: (dl )

Treffer '12' in Spalte 2
	Treffer 'w' in in Zeile 3, Spalte 4
Treffer '12' in Spalte 2
	Treffer 'x' in in Zeile 7, Spalte 4

Editiert von FIFO: output ergänzt
Last edited: 2011-03-11 13:42:01 +0100 (CET)

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"