Umlaute und printf (Allgemeines zu Perl)

[thread]20427[/thread]

Umlaute und printf

Tags: perl5 Ähnliche Threads

Leser: 16

Articles: hide open all | hide show old branches

+9 replies
der_thomas

2018-02-07 21:16
User since
2013-09-07
158 Artikel
BenutzerIn
Hallo,

ich habe ein kleines Problem mit der Darstellung einer 2 spaltigen Tabelle in der in der linken Spalte Umlaute vorkommen und printf.

Die Werte werden aus einer Textdatei ausgelesen (diese ist in utf8 codiert)
Mein Terminal nutzt auch utf8.

das Ergebnis sieht dann aber so aus:
Code: (dl )

1 2 3 4 5 6

Autodromo Lago Maggiore GP 31.01.2018 Alsace Dorf 01.02.2018 Nürburgring GP 01.02.2018 Dragon Trail Küste 02.02.2018 Interlagos 03.02.2018 Tokyo Expressway Östlicher Außenring 04.02.2018
es wandert also die rechte Spalte pro Umlaut um eine Stelle nach links.

Der Code den ich zur Ausgabe verwende ist der hier:
Code (perl): (dl )

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

use v5.12; use warnings; use utf8; use Encode qw(encode decode); my $enc = 'utf-8'; ... ... for my $i (0..($zeile-1)){ my $dectemp0 = encode($enc, $tab->[$i]->[0]); my $dectemp1 = encode($enc, $tab->[$i]->[1]); printf "%-45s %-10s", $dectemp0, $dectemp1; print "\n"; }
Hat da jemand eine Idee wie man das lösen könnte, oder muss man damit leben bzw. statt 'ü' ein 'ue' schreiben ?

Ich verwende Perl 5.22.1 auf einem Linux Mint 18.3

Beste Grüße
thomas
- +5 replies
- thomas38
  
  2018-02-08 00:09
  User since
  2012-11-04
  30 Artikel
  BenutzerIn
  Hallo Thomas,
  
  nein, Du musst nicht mit der Ersatzdarstellung der Umlaute leben.
  
  Es funktioniert, wenn "encode" erst nach dem "printf" ausgeführt wird.
  Dazu habe ich im Beispielcode unten statt "printf" die Funktion "sprintf" verwendet.
  
  "encode" verwende ich immer erst, wenn ein Ergebnis ausgegeben wird.
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  use v5.12; use warnings; use utf8; use Encode qw(encode decode); my $enc = 'utf-8'; my @orte=qw(Köln Mannheim Hamburg Würzbürg); foreach my $ort (@orte) { my $ort_sprintf = sprintf "%-15s EOL\n", $ort; my $ort_encoded=encode($enc,$ort_sprintf); print $ort_encoded; }
  
  Ausgabe:
  
  Code: (dl )
  
  1 2 3 4 5
  
  thomas@rtj11:~/tmp> perl printf_umlaute.pl Köln EOL Mannheim EOL Hamburg EOL Würzbürg EOL
  - der_thomas
    
    2018-02-08 19:34
    
    User since
    2013-09-07
    158 Artikel
    BenutzerIn
    
    Vielen Dank Thomas,
    
    es funktioniert ;)
  - +3 replies
  - GwenDragon
    
    2018-02-09 09:22
    
    User since
    2005-01-17
    14533 Artikel
    Admin1
    
    Falls Interesse, auf perl.com ein paar Rezopte:
    Unicode Column Width for Printing"
    String length in graphemes
    Last edited: 2018-02-09 09:23:47 +0100 (CET)
    die Drachin, Gwendolyn
    
    Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
    - +2 replies
    - der_thomas
      
      2018-02-10 16:54
      
      User since
      2013-09-07
      158 Artikel
      BenutzerIn
      
      Ich danke Dir
      - GwenDragon
        
        2018-02-10 16:55
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Gern geschehen. Was tut eine nicht alles um weitere Perler zu binden.
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
- +3 replies
- Raubtier
  
  2018-02-08 01:10
  
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  
  Und der Grund ist, dass in UTF ein Zeichen 1 bis 4 Bytes lang sein kann. Deutsche Umlaute sind werden in 2 Bytes gespeichert. In deinem printf zählst du nach dem encode nicht mehr die Anzahl der Zeichen, sondern die Anzahl der Bytes in der Ausgabekodierung. Du möchtest aber die Zeichen zählen. Daher mach es so, wie es thomas38 vorgeschlagen hat.
  
  Ansonsten poste ich auch gerne zum x-ten Mal noch folgende gute Erklärung:
  https://perlgeek.de/de/artikel/charsets-unicode
  - +2 replies
  - der_thomas
    
    2018-02-08 19:38
    
    User since
    2013-09-07
    158 Artikel
    BenutzerIn
    
    Danke für die Erklärung .... ich vermutete schon dass es in die Richtung geht da length("Küste") den Wert 6, length("Kuste") hingegen 5 ergibt.
    
    Danke für den sehr guten Link, werde ich mir zu Gemüte führen...
    - Raubtier
      
      2018-02-08 19:53
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      2018-02-08T18:38:49 der_thomas
      Danke für die Erklärung .... ich vermutete schon dass es in die Richtung geht da length("Küste") den Wert 6, length("Kuste") hingegen 5 ergibt.
      
      Auch das kommt darauf an. Wenn du mit "use utf8" bekannt gibst, dass dein Script in utf8 ist, dann kommt auch bei Küste 5 raus. Siehe:
      
      Code: (dl )
      
      1 2 3 4
      
      % perl -E 'say length("Küste")' 6 % perl -E 'use utf8; say length("Küste")' 5

View all threads created 2018-02-07 21:16.