Opened by Gast at 2006-03-08 13:05
User since
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
2003-08-04
2145 Artikel
ModeratorIn + EditorIn
Noch ein paar Anmerkungen:
Hier fehlt die Fehlerabfrage:
open (my $QryRes, '<', "/tmp/qry_res.$$.csv") or die "could not open /tmp/qry_res.$$.csv: $!";
Eine komische Bezeichnung. Sollte das vielleicht $record_counter heißen? Immerhin hast du konsistent die gleiche Bezeichnung verwendet. Damit dir nicht doch mal Fehler dabei unterlaufen, sollte du immer
use strict benutzen.
Der Kommentar stimmt nicht. Tatsächlich wird die gesamte Datei auf einmal in den Speicher gelesen (weil foreach eine Liste erwartet) und dann zeilenweise abgearbeitet. Wenn du wirklich zeilenweise einlesen möchtest, musst du while() benutzen:
while (my $zeile = <$QryRes>) { ...
Code: (dl
)
open(QRY_RES, "</tmp/qry_res.$$.csv");
Hier fehlt die Fehlerabfrage:
open (my $QryRes, '<', "/tmp/qry_res.$$.csv") or die "could not open /tmp/qry_res.$$.csv: $!";
Code: (dl
)
$record_couter=0;
Eine komische Bezeichnung. Sollte das vielleicht $record_counter heißen? Immerhin hast du konsistent die gleiche Bezeichnung verwendet. Damit dir nicht doch mal Fehler dabei unterlaufen, sollte du immer
use strict benutzen.Code: (dl
)
1
2
foreach $zeile (<QRY_RES>) { # Eine Datenzeile aus der Datei lesen
# liefert true, wenn eine Zeile gelesen werden konnteDer Kommentar stimmt nicht. Tatsächlich wird die gesamte Datei auf einmal in den Speicher gelesen (weil foreach eine Liste erwartet) und dann zeilenweise abgearbeitet. Wenn du wirklich zeilenweise einlesen möchtest, musst du while() benutzen:
while (my $zeile = <$QryRes>) { ...