Thread Umlaute mit Test::More
(3 answers)
Opened by roli at 2015-07-10 10:01
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 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 |