Zeile im FH wird durch eine Unterabfrage (~"if eof") der while-Schleife übersprungen (gelöst) - #160368 (Allgemeines zu Perl)

norvel

2012-08-01 10:43

User since
2012-07-26
20 Artikel
BenutzerIn
[default_avatar]

Quote
Was für einen für dich sinnvollen Return-Wert soll "while" denn haben? Ich verstehe nicht, was du hier tun willst.

Damit meine ich ob ich durch das "$line_query_input=<FIL>" in dem while-Konstrukt (($line_query_input=<FIL> and $i3 <= $breakpoint)) irgendeinen Wert zurück bekomme der mir anzeigt, dass ich nun am Ende des Files bin.

Quote
6000 Zeilen sind nicht viel. Hast du wirklich Performanceprobleme? Und sicher identifiziert, woran das liegt?

An sich nicht, soviel ich bis jetzt von Perl verstehe müsste ich jedoch den ganzen Prozess des in's Array einlesen bevor ich mit dem in der Frage geposteten Code anfange noch einmal vorschieben, oder?

Also:

Code: (dl )

### 1. Schritt: Letzte Zeile des Files finden
while ($line_query_input=<FIL>)
{
	chomp($line_query_input);
	my @values = split(/\s*,\s*/, $line_query_input);
	push @data_array, [@values];

}
### 2. Schritt: Irgendwie das letzte Element auslesen, in temp-Array speichern um später die Werte im if-Statement zu vergleichen?
### 3. Schritt: Den in der Frage geposteten Code