Thread Problem mit Rückgabewert eine Sub (12 answers)
Opened by Ingo75 at 2014-02-17 17:55

Ingo75
 2014-02-17 17:55
#173606 #173606
User since
2014-02-10
8 Artikel
BenutzerIn
[default_avatar]
Kann mir einer weiterhelfen. Bitte..
es geht um eine CSV datei die Umsatzdaten enthält. es werden als Trenner ; und "" auch doppelt verwendet. In der sub habe ich felder die zb. Buchungstag und alle Datumsangaben beinhalten. Wie die Spalte einer Tabelle.
So soll es sein. Wenn ich zurückgegebenen Wert anschaue sieht es so aus als wenn jeder Listeneintrag nur noch ein Wort oder eine Zahl enthält. Also keine Tabellenspalte mehr.


Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

while ($line=<DAT>) {
    &parse_csv1 ($line);
    push @record,@fields;
}

print $record[2];#nur der text buchungstage jedes "wort" jede zahl einzel mit index anzusprechen.
close(DAT);
sub parse_csv1 {
    $line = shift;
    @fields=();
    while ($line =~ m{ ( [^"';] + )  | "((?: [^"] | "") * ) "}gx) {
        if (defined $1) {
            $field = $1;
        } else {
            ($field = $2) =~ s/""/"/g;#???????????
        }
        push @fields, $field;
    }
    print $fields[1]; # Text:Buchungstage und alle Datumangaben
    return (@fields);
}

Last edited: 2014-02-17 19:12:21 +0100 (CET)

View full thread Problem mit Rückgabewert eine Sub