Problem mit Zeilenbruch hex(0d) - #160628 (Allgemeines zu Perl)

giordano

2012-08-04 19:27

User since
2011-04-29
16 Artikel
BenutzerIn
[default_avatar]

Hallo,
Ich wollte von mehreren Files jeweils nur die erste Zeile einlesen. Üblicherweise mache ich das so:

Code (perl): (dl )

open (INPUT, $file);
$first = <INPUT>;
print $first;
close (INPUT);

Was jedoch passiert ist: der ganze Inhalt des Files wurde in $first eingelesen und nicht nur die erste Zeile. Ich habe dann nachgeschaut, ob das File (ein csv-File) überhaubt Zeilenbrüche. Dazu habe ich den Hexadezimal-Code angeschaut. Der Zeilenbruch wird mit 0d angegeben. Wenn ich ein csv-File erstelle mit mehreren Zeilen, ist der Zeilenbruch 0d0a. Wenn ich mein "ErsteZeile"-Programm auf dieses File laufen lasse, dann wird nur die erste Zeile gelesen. Offenbar erkennt Perl nicht den Zeilenbruch 0d. Hat jemand eine Idee, wie ich dieses Problem lösen kann?
Besten Dank für Hilfe.
giordano