Как я могу вывести UTF-8 из Perl?

Я пытаюсь написать сценарий Perl, используя прагму «utf8», и получаю неожиданные результаты. Я использую Mac OS X 10.5 (Leopard) и редактирую с помощью TextMate. Все мои настройки и для моего редактора, и для операционной системы по умолчанию настроены на запись файлов в формате utf-8.

Однако, когда я ввожу следующее в текстовый файл, сохраняю его как «.pl» и выполняю, я получаю дружественный «ромб с вопросительным знаком» вместо символов, отличных от ASCII.

#!/usr/bin/env perl -w

use strict;
use utf8;

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

Есть идеи, что я делаю не так? Я ожидаю получить на выходе «irçös», но вместо этого получаю «irirçös».

use utf8;не включает вывод Unicode - он позволяет вам вводить Unicode в вашей программе. Добавьте это в программу перед своим print()утверждением:

binmode(STDOUT, ":utf8");

Посмотрим, поможет ли это. Это должно сделать STDOUTвывод в UTF-8 вместо обычного ASCII.

Вы можете использовать директиву open .

Например, ниже устанавливает STDOUT, STDIN и STDERR для использования UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDI , выберите метод, который лучше всего подходит для вашей работы. Я использую метод среды, поэтому мне не нужно об этом думать.

В окружающей среде :

export PERL_UNICODE=SDL

в командной строке :

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

или с binmode :

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

или с 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";

или с открытой прагмой :

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

Вы также хотите сказать, что строки в вашем коде - это utf-8. См. Почему современный Perl по умолчанию избегает UTF-8? . Так установите не только PERL_UNICODE=SDALно и PERL5OPT=-Mutf8.

Спасибо, наконец-то есть решение, чтобы не помещать utf8 :: encode во всем коде. Для синтеза и завершения для других случаев, таких как запись и чтение файлов в utf8, а также работает с LoadFile файла YAML в 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}." ";

где cache.yaml:

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

сделайте в своей оболочке: $ env | grep LANG

Это, вероятно, покажет, что ваша оболочка не использует локаль utf-8.