perl special char windows

Question

Я стараюсь иметь специальные символы немецкого языка: öäüßÖÄÜ на выходе приложения ma perl console, но я не смог. Это немецкая система win7 с активной кодовой страницы 850.

#!/usr/bin/perl 
use warnings; 
use strict; 

binmode(STDOUT , ":encoding(cp437)") if $^O eq 'MSWin32'; 
#binmode(STDOUT , ":encoding(cp850)") if $^O eq 'MSWin32'; 
#binmode(STDOUT , ":encoding(cp1252)") if $^O eq 'MSWin32'; 

my @sp_chars = qw/ä ö ü ß Ä Ö Ü/; 

foreach my $sp_char (@sp_chars) { 
    print "$sp_char\n"; 
} 

Я получаю ошибки как:

"\x{009f}" does not map to cp1252 at umlaute.pl line 12. 

"\x{009f}" does not map to cp850 at umlaute.pl line 12. 

"\x{00c3}" does not map to cp437 at umlaute.pl line 12. 

Как я могу получить выход Проппер?

Answer 1

При использовании utf8 символов в исходном коде и использовать слой IO для кодирования, вы должны включить utf8 в PERL парсера:

use utf8; 

my $encoding = $^O eq 'MSWin32' ? 'cp850' : 'utf8'; 
binmode(STDOUT, ":encoding($encoding)"); 

print "$_\n" for qw/ä ö ü ß Ä Ö Ü/;