Kodierung in UTF-8 with BOM (Allgemeines zu Perl)

[thread]15847[/thread]

Kodierung in UTF-8 with BOM

Leser: 20

Articles: hide open all | hide show old branches

+7 replies
kimmy

2011-01-14 14:07
User since
2010-09-10
87 Artikel
BenutzerIn
Hallo,

ich möchte gern die Ausgabe Datei in UTF-8 mit BOM kodieren.
Deswegen habe ich wie folgt gemacht:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/usr/bin/perl use strict; use utf8; use open ':encoding(UTF-8)'; use open ':std'; open OUT, ">ausgabe.txt" or die; my $BOM = chr(0xFEFF); print OUT "$BOM"; while(<>){ chomp; print OUT "$_\n"; }
Das Skript läuft problemlos.
Aber gibt es vielleicht andere Lösung?
~~Eigentlich hätte ich gern lieber "open OUT, ">ausgabe.txt"" statt "open OUT, ">>ausgabe.txt"".~~

Danke im Voraus.
Last edited: 2011-01-14 14:19:33 +0100 (CET)
- +6 replies
- bianca
  
  2011-01-14 14:12
  User since
  2009-09-13
  7016 Artikel
  BenutzerIn
  > und >> heißt doch nur anlegend oder anhängend öffnen. Wüßte keine Zusammenhang zur Kodierung.
  
  Im übrigen ist die Schreibweise nicht mehr ganz aktuell.
  Besser:
  
  Code (perl): (dl )
  
  1 2
  
  if (open (my $out,'>','ausgabe.txt')) {...} else { die $! }
  
  WasIsteinLexikalischerFileHandle
  
  Edit: Wiki-Link korrekt gesetzt
  Last edited: 2011-01-14 14:22:19 +0100 (CET)
  10 print "Hallo"
  20 goto 10
  - +5 replies
  - kimmy
    
    2011-01-14 14:22
    
    User since
    2010-09-10
    87 Artikel
    BenutzerIn
    
    Stimmt, Schuldigung. Ich habe verwechselt.
    Ich habe die dumme Frage gelöscht.
    Last edited: 2011-01-14 14:24:49 +0100 (CET)
    - +4 replies
    - bianca
      
      2011-01-14 14:23
      
      User since
      2009-09-13
      7016 Artikel
      BenutzerIn
      
      2011-01-14T13:22:07 kimmy
      Stimmt, Schuldigung.
      
      OK, und was gefällt Dir jetzt nicht?
      Was willst Du anders haben?
      Aus meiner Sicht nur den lex. Filehandel nutzen und gut ist.
      10 print "Hallo"
      20 goto 10
      - +3 replies
      - kimmy
        
        2011-01-14 14:31
        
        User since
        2010-09-10
        87 Artikel
        BenutzerIn
        
        Meine Frage ist:
        
        kann man vielleicht auf die Zeilen verzichten
        
        Code: (dl )
        
        1 2
        
        my $BOM = chr(0xFEFF); print OUT "$BOM";
        
        und wie folgt schreiben? Z.B.
        
        Code: (dl )
        
        use open ':encoding(UTF-8 BOM)';
        
        +2 replies
        
        bianca
        
        2011-01-14 14:35
        
        User since
        2009-09-13
        7016 Artikel
        BenutzerIn
        
        In diesem Thread wird eine kürzere Variante gezeigt: Einlesen griechischer Textdateien
        10 print "Hallo"
        20 goto 10
        
        leo11
        
        2011-01-14 14:52
        
        User since
        2008-08-14
        250 Artikel
        BenutzerIn
        
        2011-01-14T13:35:50 bianca
        In diesem Thread wird eine kürzere Variante gezeigt: Einlesen griechischer Textdateien
        
        Dir ist klar, dass sie nach einem Standardweg für das Einfügen einer Byte Order Mark sucht?
        
        hier steht dazu nur an 1 Stelle etwas, jedoch nicht was du suchst.
        
        Im IRC wird folgendes dazu genannt:File::BOM has a PerlIO::via layer
        
        Des Weiteren less mal hier
        
        BOM ist bei UTF-8 nicht notwendig, aber erlaubt.
        
        Nachtrag: Dir ist klar, dass FEFF eine UTF-16-Kennung ist?
        Last edited: 2011-01-14 14:54:08 +0100 (CET)

View all threads created 2011-01-14 14:07.