Umlaute mit Test::More (Allgemeines zu Perl)

[thread]19719[/thread]

Umlaute mit Test::More

Tags: perl5 Test::More Umlaute Ähnliche Threads

Leser: 11

Articles: hide open all | hide show old branches

+4 replies
roli

2015-07-10 10:01
User since
2004-12-31
424 Artikel
BenutzerIn
Hallo zusammen,

ich habe (wie so oft) ein Problem mit Umlauten in meinen Scripten.
Der Windows Rechner an dem ich sitze nutzt die Codepage 850 in der Dos-Box,
mein Script ist via Notepad++ als "Ansi" mit Dos\Windows Zeilenumbruch Datei gespeichert.
Code (perl): (dl )

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

use Modern::Perl '2015'; use Test::More "no_plan"; my $encoding = $^O eq 'MSWin32' ? 'cp850' : 'utf8'; binmode(STDOUT, ":encoding($encoding)" ); binmode(STDERR, ":encoding($encoding)" ); binmode(STDIN, ":encoding($encoding)" ); my @umlaute = qw/Ä Ü Ö ß ä ü ö/; foreach my $umlaut ( @umlaute ) { say "Umlaute: $umlaut"; } fail("Umlaute können dargestellt werden");
Als Ergebnis erhalte ich:
Quote
C:\Users\roli\Daten\selenium\Funktionen>chcp
Aktive Codepage: 850.

C:\Users\roli\Daten\selenium\Funktionen>perl uml.pl
Umlaute: Ä
Umlaute: Ü
Umlaute: Ö
Umlaute: ß
Umlaute: ä
Umlaute: ü
Umlaute: ö
not ok 1 - Umlaute k÷nnen dargestellt werden
# Failed test 'Umlaute k÷nnen dargestellt werden'
# at uml.pl line 17.
1..1
# Looks like you failed 1 test of 1.

C:\Users\roli\Daten\selenium\Funktionen>

Was muss ich machen, damit der Output von Test::More auch mit Umlauten hier in meiner Konfiguration umgehen kann?

Danke
Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
- +3 replies
- Raubtier
  
  2015-07-10 10:15
  User since
  2012-05-04
  1054 Artikel
  BenutzerIn
  Ich denke mal, dass du Perl noch mitteilen musst, in welcher Kodierung der Source vorliegt, also
  
  Code (perl): (dl )
  
  1 2 3
  
  @umlaut = map { decode "Windows-1252", $_ } qw/Ä Ü Ö ß ä ü ö/; ... fail(decode("Windows-1252", "Umlaute können dargestellt werden"));
  
  (unter der Annahme, dass Notepad++ mit "Ansi" Windows-1252 meint... Ich sage ja auch nicht, das Blatt Papier hat die Größe "DIN" (ohne Angabe von A3/A4 etc)).
  
  Edit:
  hm... scheinbar muss es heißen (d.h. dein oben gesetztes STDERR-Layer wird ignoriert):
  
  Code (perl): (dl )
  
  fail(encode($encoding, decode("Windows-1252", "Umlaute können dargestellt werden")));
  
  Last edited: 2015-07-10 10:29:36 +0200 (CEST)
  - +2 replies
  - roli
    
    2015-07-10 11:01
    User since
    2004-12-31
    424 Artikel
    BenutzerIn
    
    Hallo Raubtier,
    
    schön ist anders, aber so geht's schon mal. Ich habe mal weiter gespielt mit deiner Lösung:
    
    Code (perl): (dl )
    
    1 2
    
    pass(encode($encoding, decode("Windows-1252", "Umlaute können dargestellt werden 1252"))); pass(encode($encoding, decode("cp850", "Umlaute können dargestellt werden 850")));
    
    Quote
    ok 1 - Umlaute können dargestellt werden 1252
    ok 2 - Umlaute k÷nnen dargestellt werden 850
    
    Warum funktioniert 1252, aber 850 nicht, wo die Dos-Box doch mit Codepage 850 läuft?
    
    Danke
    Roland
    --
    "Steh vorn, während du fragst;
    sitzen soll, wer antwortet."
    Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2
    - Raubtier
      
      2015-07-10 11:58
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Weil du bei decode die Kodierung angibt, von der du konvertierst (das ist also in diesem Fall die Kodierung deines Scriptes - das hat nichts mit der Ausgabe zu tun).
      
      Für die Ausgabe nimmt man dann encode.
      
      Also:
      
      decode konvertiert in Perls interne Kodierung
      encode konvertiert die interne Kodierung in irgendeine Ausgabekodierung
      
      Siehe auch http://perlgeek.de/de/artikel/charsets-unicode
      Last edited: 2015-07-10 11:59:32 +0200 (CEST)

View all threads created 2015-07-10 10:01.