Як я можу вивести 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" на виході, але я отримаю " ir s" замість цього.

use utf8;не вмикає вихід Unicode - це дозволяє вводити Unicode у вашій програмі. Додайте це до програми перед print()заявою:

binmode(STDOUT, ":utf8");

Подивіться, чи це допомагає. Це повинно зробити STDOUTвихід у UTF-8 замість звичайного ASCII.

Можна використовувати відкриту прагму .

Наприклад, наприклад. нижче встановлено 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 :: кодувати весь код. Для синтезу та завершення інших випадків, таких як запис та читання файлів у 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.