Community  »  Perl: Allgemeines Forum

Dateiende wrid nicht mit eingelesen	Seitenanfang
Hallo, ich habe ein ganz einfaches Problem. Bei mir wird die Datei die ich einlese nicht vollständig eingelesen. Die letzte Zeile fehlt. Es liegt bestimmt an einem Newline, aber ich finde den Fehler leider nicht. Hier der Code open INFILE_1,"<relation.txt" or die "Fehler beim lesen File1"; open INFILE_2, "<text15.txt" or die "Fehler beim lesen File2"; open OUTFILE,">zw1.txt" or die "Fehler beim Schreiben"; while($zeile1=<INFILE_1>) { chomp $zeile1; $zeile2=<INFILE_2> ||''; chomp $zeile2; print OUTFILE "$zeile1\t$zeile2\n"; } close OUTFILE; close INFILE_2; close INFILE_1; Ich habe schon die einzulesenden Dateien überprüft, in beiden sind die Daten vollständig. In der Ausgabedatei fehlt dann aber die letzte Zeile. Danke im voraus. LG Mayangel Datum: 23.08.2005-14:42
re: Dateiende wrid nicht mit eingelesen	Seitenanfang
Was steht denn in deiner letzten Zeile? Ein Leerstring? Wenn ja: Endet die Datei dann als "vorletzte zeile\n" oder "vorletzte zeile\n\n"? Wenn nein: Wie sehen die letzten Zeilen aus? Datum: 23.08.2005-23:17
re: Dateiende wrid nicht mit eingelesen	Seitenanfang
Hallo, schick mir mal die 2 Dateien, ich schau's mir mal an.... Gruß Ralf Datum: 24.08.2005-08:47