JSON und utf8 (gelöst) - #188347 (Fragen zu Perl-Modulen)

haj

2018-05-06 20:22

User since
2015-01-07
527 Artikel
BenutzerIn

user image

Die interne Darstellung von Charactern in Perl ist einigermaßen verrenkt.
Dazu nehme man folgenden Dreizeiler:

Code: (dl )

1
2
3

use utf8;
print "Fünf\n";
print "Fünf €\n";

Ohne besondere Vorkehrungen sieht das bei mir so aus:

Code: (dl )

1
2
3

F�nf
Wide character in print at a.pl line 3.
Fünf €

Deswegen empfehle ich, immer explizite Vorgaben zu machen, wie etwas ausgegeben werden soll.
Im JSON-Beispiel funktionieren folgende zwei Varianten:

Code: (dl )

use JSON;
use utf8;
my $r = {foo => "Fünf € Lösung"};
binmode STDOUT,':bytes';
print JSON->new->utf8(1)->encode($r),"\n";

oder

Code: (dl )

use JSON;
use utf8;
my $r = {foo => "Fünf € Lösung"};
binmode STDOUT,':encoding(UTF-8)';
print JSON->new->utf8(0)->encode($r),"\n";

Genau eine Komponente muss das Umwandeln machen: Entweder JSON oder Perl's I/O-Layer.