Jak mogę wyprowadzić UTF-8 z Perla?

Question

Próbuję napisać skrypt Perla za pomocą "utf8" pragma i otrzymuję nieoczekiwane wyniki. Używam Mac OS X 10.5 (Leopard) i edytuję TextMate. Wszystkie moje ustawienia dla mojego edytora i systemu operacyjnego są domyślnie zapisywane w formacie utf-8.

Po wprowadzeniu do pliku tekstowego, zapisaniu go jako ".pl", i wykonaniu go, otrzymuję przyjazny "diament ze znakiem zapytania" zamiast znaków spoza ASCII.

#!/usr/bin/env perl -w 

use strict; 
use utf8; 

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

Każdy pomysł, co robię źle? Oczekuję, że w wynikach pojawi się "Çirçös", ale zamiast tego otrzymuję " ir s".

Answer 1

use utf8; nie włącza Unicode wyjście - pozwala na wpisanie Unicode w swoim programie. Dodaj to do programu, zanim twoje print() oświadczenie:

binmode(STDOUT, ":utf8"); 

Sprawdź, czy to pomaga. To powinno spowodować, że wyjście STDOUT będzie w UTF-8 zamiast zwykłego ASCII.

Answer 2

Przekieruj dane wyjściowe do pliku tekstowego i wypróbuj w edytorze. Jeśli wyświetla się dobrze, oznacza to awarię terminala.

Answer 3

robić w powłoce: $ env | grep LANG

To prawdopodobnie pokaże, że powłoka nie używa UTF-8.

Answer 4

Możesz użyć open pragma.

Na przykład. poniżej ustawia STDOUT, STDERR STDIN & używać UTF-8 ....

use open qw/:std :utf8/; 

Answer 5

TMTOWTDI, wybrał metodę, która najlepiej pasuje do sposobu pracy. Używam metody środowiska, więc nie muszę o tym myśleć.

W environment:

export PERL_UNICODE=SDL 

na command line:

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

lub binmode:

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

lub 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"; 

lub z open pragma:

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

Answer 6

Dzięki, wreszcie rozwiązanie, aby nie umieszczać utf8 :: kodowanie całego kodu. do syntezy i kompletne dla innych przypadkach, jak zapisu i odczytu plików w UTF-8, a także współpracuje z loadFile z pliku YAML w 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}." "; 

gdzie cache.yaml to:

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

Answer 7

Chcesz również powiedzieć, że ciągi w kodzie są utf-8. Zobacz Why does modern Perl avoid UTF-8 by default?. Ustaw więc nie tylko PERL_UNICODE=SDAL, ale także PERL5OPT=-Mutf8.