Encoding, Umlaute, ... - #181555 (Allgemeines zu Perl)

roli

2015-07-13 12:43

User since
2004-12-31
424 Artikel
BenutzerIn
[default_avatar]

Nachtrag:
Ich habe den Konsolen Font auf Lucida Console umgestellt, und chcp 65001 ausgeführt. Dein Script habe ich um die Bildschirmausgabe erweitert:

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;
use Encode qw(decode encode_utf8);

my $testtext = 'öäüÖÄÜß€';
my $data = encode_utf8 decode "windows-1252", $testtext;
open my $fh, '>', "test.txt" or die $!;
print $fh $data;
close($fh);
print "\nDecode: > $data <\n";

Das Ergebnis ist: Konsole in UTF8
Auch nicht so ganz das was ich erwarten würde.
Das muss doch schon mal wer auch unter cp850 oder cp1252 geschafft haben, oder?

Roland
--
"Steh vorn, während du fragst;
sitzen soll, wer antwortet."
Aus "Die Edda des Snorri Sturluson" "Gylfis Täuschung" Strophe 2