Thread Daten aus Datei in while-schleife bearbeiten
(6 answers)
Opened by zottel335i at 2008-07-02 14:12
Hallo Forum,
ich möchte Daten einer durch Semikolon getrennten Datei, in einzelne Variablen abspeichern. Dazu habe ich folgendes Konstrukt geschrieben: Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10 11 12 13 # Datei oeffnen open(DATEN,'<c:\perl\systems.txt') or die "Konnte die Datei nicht öffnen"; # Inhalte abgreifen und splitten while (!undef) { my $zeile = DATEN->getline; my ($USER, $FQDN, $OS, $PW) = split(/;/,$zeile); printf("$FQDN"); printf("$OS"); printf("$USER"); printf("$PW"); } printf("schleife tot"); Die einzelnen Elemente werden korrekt in den Variablen abgespeichert. Leider funktioniert der Abbruch der Schleife nicht. Ich dachte wenn keine Daten mehr in der Datei vorhanden sind, habe ich den Rückgabewert "undef". Danke + Gruß Peter |