Wie kann ich UTF-8 von Perl ausgeben?

Ich versuche, ein Perl-Skript mit dem Pragma "utf8" zu schreiben, und erhalte unerwartete Ergebnisse. Ich verwende Mac OS X 10.5 (Leopard) und bearbeite mit TextMate. Alle meine Einstellungen für meinen Editor und mein Betriebssystem sind standardmäßig auf das Schreiben von Dateien im utf-8-Format eingestellt.

Wenn ich jedoch Folgendes in eine Textdatei eingebe, es als ".pl" speichere und ausführe, erhalte ich anstelle der Nicht-ASCII-Zeichen den freundlichen "Diamanten mit einem Fragezeichen".

#!/usr/bin/env perl -w

use strict;
use utf8;

my $str = 'Çirçös';
print( "$str\n" );

Irgendeine Idee, was ich falsch mache? Ich erwarte 'Çirçös' in der Ausgabe, aber ich bekomme stattdessen ' ir s'.

use utf8;aktiviert die Unicode- Ausgabe nicht - Sie können Unicode in Ihr Programm eingeben. Fügen Sie dies dem Programm vor Ihrer print()Aussage hinzu:

binmode(STDOUT, ":utf8");

Sehen Sie, ob das hilft. Das sollte die STDOUTAusgabe in UTF-8 anstelle von gewöhnlichem ASCII machen.

Sie können das offene Pragma verwenden .

Zum Beispiel. unten werden STDOUT, STDIN & STDERR für die Verwendung von UTF-8 festgelegt ....

use open qw/:std :utf8/;

TMTOWTDI , wählen Sie die Methode, die am besten zu Ihrer Arbeitsweise passt. Ich verwende die Umgebungsmethode, damit ich nicht darüber nachdenken muss.

In der Umwelt :

export PERL_UNICODE=SDL

in der Kommandozeile :

perl -CSDL -le 'print "\x{1815}"';

oder mit binmode :

binmode(STDOUT, ":utf8");          #treat as if it is UTF-8
binmode(STDIN, ":encoding(utf8)"); #actually check if it is UTF-8

oder mit PerlIO :

open my $fh, ">:utf8", $filename
    or die "could not open $filename: $!\n";

open my $fh, "<:encoding(utf-8)", $filename
    or die "could not open $filename: $!\n";

oder mit dem offenen Pragma :

use open ":encoding(utf8)";
use open IN => ":encoding(utf8)", OUT => ":utf8";

Sie möchten auch sagen, dass Zeichenfolgen in Ihrem Code utf-8 sind. Siehe Warum vermeidet modernes Perl standardmäßig UTF-8? . Also nicht nur PERL_UNICODE=SDALsondern auch einstellen PERL5OPT=-Mutf8.

Danke, endlich eine Lösung, um utf8 :: encode nicht über den gesamten Code zu setzen. Zum Synthetisieren und Vervollständigen für andere Fälle, wie das Schreiben und Lesen von Dateien in utf8, und funktioniert auch mit LoadFile einer YAML-Datei in utf8

use utf8;
use open ':encoding(utf8)';
binmode(STDOUT, ":utf8");

open(FH, ">test.txt"); 
print FH "something éá";

use YAML qw(LoadFile Dump);
my $PUBS = LoadFile("cache.yaml");
my $f = "2917";
my $ref = $PUBS->{$f};
print "$f \"".$ref->{name}."\" ". $ref->{primary_uri}." ";

wo cache.yaml ist:

---
2917:
  id: 2917
  name: Semanário
  primary_uri: 2917.xml

Mach in deiner Shell: $ env | grep LANG

Dies wird wahrscheinlich zeigen, dass Ihre Shell kein utf-8-Gebietsschema verwendet.