¿Cómo puedo enviar UTF-8 desde Perl?

Question

Estoy tratando de escribir una secuencia de comandos Perl utilizando el pragma "utf8", y obtengo resultados inesperados. Estoy usando Mac OS X 10.5 (Leopard) y estoy editando con TextMate. Todas mis configuraciones tanto para mi editor como para mi sistema operativo están predeterminadas para escribir archivos en formato utf-8.

Sin embargo, cuando ingreso lo siguiente en un archivo de texto, lo guardo como un ".pl", y lo ejecuto, obtengo el "diamante con un signo de interrogación" en lugar de los caracteres que no son ASCII.

#!/usr/bin/env perl -w 

use strict; 
use utf8; 

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

¿Alguna idea de lo que estoy haciendo mal? Espero obtener 'Çirçös' en la salida, pero obtengo ' ir s' en su lugar.

Answer 1

use utf8; no habilita Unicode salida - le permite escribir Unicode en su programa. Esto, unido al programa, antes de que su estado de print():

binmode(STDOUT, ":utf8"); 

ver si eso ayuda. Eso debería hacer que STDOUT salga en UTF-8 en lugar de ASCII ordinario.

Answer 2

Redirige la salida a un archivo de texto y prueba eso en un editor. Si se muestra bien, entonces su terminal está en falta.

Answer 3

hacer en su shell: $ env | grep LANG

Esto probablemente mostrará que el shell no está utilizando una localización UTF-8.

Answer 4

Puede usar el open pragma.

Por ej. a continuación establece STDOUT, STDIN & STDERR utilizar UTF-8 ....

use open qw/:std :utf8/; 

Answer 5

TMTOWTDI, optaron por el método que mejor se adapte a su forma de trabajar. Uso el método del entorno, así que no tengo que pensarlo.

En el environment:

export PERL_UNICODE=SDL 

en la command line:

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

o con binmode:

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

o con 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"; 

o con el open pragma:

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

Answer 6

Gracias, finalmente obtuvo una solución para no poner UTF-8 :: codificar todo el código. para sintetizar y completa para otros casos, como escribir y leer archivos en UTF-8 y también trabaja con LoadFile de un archivo YAML en 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}." "; 

donde caché.yaml es:

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

Answer 7

También quiere decir que las cadenas en su código son utf-8. Ver Why does modern Perl avoid UTF-8 by default?. Por lo tanto, configure no solo PERL_UNICODE=SDAL, sino también PERL5OPT=-Mutf8.