Opened by vionig at 2017-09-16 16:05
Danke für den Code, klappt wunderbar die Warnings sind weg, allerdings bleibt das Verhalten gleich. Sobald ich Datei Nr. 3 dazu nehme knallt es.
TEXT::CSV habe ich mir angeschaut, das übersteigt aber aktuell meinen Horizont. Ich habe es installiert bekommen, aber mir ist nicht klar wie genau ich damit meine Lösung nachbauen kann.
Ausgehend von: CPAN
Wie genau kann ich hier die einzelnen Spalten bekommen (auch Split?) bzw. meine Addition durchführen wenn $row->[0] größer meinem angegebenem Wert ist? Hab ein paar Versuche unternommen, aber ich komm mit der Dereferenzierung nicht klar und verstehe nicht, wie ich die Werte danach über push wieder ausgerechnet zusammenführe.
Lieben Dank.
Last edited: 2017-09-18 09:08:22 +0200 (CEST)
TEXT::CSV habe ich mir angeschaut, das übersteigt aber aktuell meinen Horizont. Ich habe es installiert bekommen, aber mir ist nicht klar wie genau ich damit meine Lösung nachbauen kann.
Ausgehend von: CPAN
Code: (dl
)
1
2
3
4
while ( my $row = $csv->getline( $fh ) ) {
$row->[2] =~ m/pattern/ or next; # 3rd field should match
push @rows, $row;
}Wie genau kann ich hier die einzelnen Spalten bekommen (auch Split?) bzw. meine Addition durchführen wenn $row->[0] größer meinem angegebenem Wert ist? Hab ein paar Versuche unternommen, aber ich komm mit der Dereferenzierung nicht klar und verstehe nicht, wie ich die Werte danach über push wieder ausgerechnet zusammenführe.
Lieben Dank.
Last edited: 2017-09-18 09:08:22 +0200 (CEST)