Jak wyprowadzić UTF-8 z Perla?

Próbuję napisać skrypt Perla przy użyciu pragmy „utf8” i otrzymuję nieoczekiwane rezultaty. Używam systemu Mac OS X 10.5 (Leopard) i edytuję za pomocą TextMate. Wszystkie moje ustawienia zarówno mojego edytora, jak i systemu operacyjnego są domyślnie ustawione na zapisywanie plików w formacie utf-8.

Jednak kiedy wprowadzam następujące polecenie do pliku tekstowego, zapisuję go jako „.pl” i wykonuję, otrzymuję przyjazny „romb ze znakiem zapytania” zamiast znaków spoza zestawu ASCII.

#!/usr/bin/env perl -w

use strict;
use utf8;

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

Masz pojęcie, co robię źle? Spodziewam się, że na wyjściu pojawi się „Çirçös”, ale zamiast tego otrzymuję „ irçös”.

use utf8;nie włącza wyjścia Unicode - umożliwia wpisanie Unicode w programie. Dodaj to do programu, przed swoim print()oświadczeniem:

binmode(STDOUT, ":utf8");

Zobacz, czy to pomoże. To powinno dać STDOUTwyjście w UTF-8 zamiast zwykłego ASCII.

Możesz użyć otwartej pragmy .

Np. poniżej ustawia STDOUT, STDIN i STDERR do używania UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDI , wybierz metodę, która najlepiej pasuje do Twojego stylu pracy. Używam metody środowiskowej, więc nie muszę o tym myśleć.

W środowisku :

export PERL_UNICODE=SDL

w linii poleceń :

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

lub z binmode :

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

lub z 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 otwartą pragmą :

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

Chcesz również powiedzieć, że łańcuchy w twoim kodzie to utf-8. Zobacz Dlaczego współczesny Perl domyślnie unika UTF-8? . Więc zestaw nie tylko, PERL_UNICODE=SDALale także PERL5OPT=-Mutf8.

Dzięki, w końcu znalazłem rozwiązanie, aby nie umieszczać utf8 :: encode w całym kodzie. Aby zsyntetyzować i uzupełnić w innych przypadkach, takich jak zapis i odczyt plików w utf8, a także działa z LoadFile 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

wykonaj w swojej powłoce: $ env | grep LANG

To prawdopodobnie pokaże, że Twoja powłoka nie używa ustawień regionalnych utf-8.