Problem mit Zeilenbruch hex(0d) (Allgemeines zu Perl)

[thread]17636[/thread]

Problem mit Zeilenbruch hex(0d)

Tags: perl5 Zeilenumbruch Ähnliche Threads

Leser: 21

Articles: hide open all | hide show old branches

+9 replies
giordano

2012-08-04 19:27
User since
2011-04-29
16 Artikel
BenutzerIn
Hallo,
Ich wollte von mehreren Files jeweils nur die erste Zeile einlesen. Üblicherweise mache ich das so:
Code (perl): (dl )

1 2 3 4

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
- +2 replies
- pq
  
  2012-08-04 19:53
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  auf welchem betriebssystem lässt du das skript laufen? die zeilenumbrüche sind da verschieden. und auf welchem system erstellst du die datei?
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - giordano
    
    2012-08-04 20:11
    
    User since
    2011-04-29
    16 Artikel
    BenutzerIn
    
    Oh, sorry,
    Es ist alles auf Windows XP.
    giordano
- +6 replies
- pq
  
  2012-08-04 20:26
  User since
  2003-08-04
  12208 Artikel
  Admin1
  wenn du eine datei mit einem linefeed als zeilenumbruch hast und unter windows bearbeiten willst, musst du den record separator anpassen.
  am besten mittels der funktion local nur an der stelle, an der du es brauchst:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  { local $/ = "\012"; open my $fh, "<", "file.csv" or die $!; while (my $line = <$fh>) { chomp $line; # linefeed entfernen ... } }
  
  das open mit $fh und das or die am ende gehört übrigens zu einem sauberen und modernen open() dazu.
  am besten mal ein modernes tutorial lesen: http://perl-tutorial.org/
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
  - +5 replies
  - giordano
    
    2012-08-04 21:37
    
    User since
    2011-04-29
    16 Artikel
    BenutzerIn
    
    Es klappt (mit $/ = "\012"). Habe mit einer Frage gleiche mehrere Dinge gelernt. Besten Dank für die prompte Antwort.
    giordano
    - +4 replies
    - Muffi
      
      2012-08-06 10:01
      
      User since
      2012-07-18
      1465 Artikel
      BenutzerIn
      
      Wenn du über mehrere Betriebssysteme arbeitest auch an anderen Stellen aufpassen wos um Zeilenumbrüche geht. "\n" z.b. hat das gleiche Problem.
      1 + 1 = 10
      - +3 replies
      - Raubtier
        
        2012-08-06 11:21
        
        User since
        2012-05-04
        1076 Artikel
        BenutzerIn
        
        Naja, \n ist halt einfach der logische Zeilenumbruch.
        
        Je nach Betriebssystem wird der beim Lesen/Schreiben von Dateien jeweils in den entsprechenden Zeilentrenner des aktuellen Betriebssystems gewandelt.
        
        Solange du also unter Linux Linux-Textdateien verarbeitest oder unter Windows Windows-Textdateien, gibt es kein Problem und \n wird "das Richtige" tun.
        
        Wenn man weiß, dass die Dateien CRLF als Trenner haben, kann man sie auch direkt so öffnen:
        
        Code: (dl )
        
        open(my $fh, "<:crlf", "dateiname") or die $!;
        
        +2 replies
        
        giordano
        
        2012-08-06 22:02
        
        User since
        2011-04-29
        16 Artikel
        BenutzerIn
        
        Besten Dank für die Infos. Dieser Thread wird für mich eine Referenz sein. Noch eine Bemerkung zu meinen Dateien. Die csv-Files wurden an verschiedenen Tagen auf einem Mac (oder sagt man Apple?) mit der Statistik-Software STATA exportiert. Das eine Mal war der Zeilenumbruch 0d, das andere mal 0d0a. Vermutlich wurde die Einstellung in STATA geändert.
        Gruss
        giordano
        
        pq
        
        2012-08-06 22:53
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        einige infos dazu findest du auch in perlport unter dem punkt Newlines.
        zitat:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14
        
        Some of this may be confusing. Here's a handy reference to the ASCII CR and LF characters. You can print it out and stick it in your wallet. LF eq \012 eq \x0A eq \cJ eq chr(10) eq ASCII 10 CR eq \015 eq \x0D eq \cM eq chr(13) eq ASCII 13 | Unix | DOS | Mac | --------------------------- \n | LF | LF | CR | \r | CR | CR | LF | \n * | LF | CRLF | CR | \r * | CR | CR | LF | --------------------------- * text-mode STDIO
        
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem

View all threads created 2012-08-04 19:27.