UTF-8'i Perl'den nasıl çıkarabilirim?

"Utf8" pragmasını kullanarak bir Perl betiği yazmaya çalışıyorum ve beklenmedik sonuçlar alıyorum. Mac OS X 10.5 (Leopard) kullanıyorum ve TextMate ile düzenleme yapıyorum. Hem editörüm hem de işletim sistemim için tüm ayarlarım varsayılan olarak dosyaları utf-8 biçiminde yazacak şekilde ayarlandı.

Ancak, aşağıdakini bir metin dosyasına girip, onu bir ".pl" olarak kaydettiğimde ve çalıştırdığımda, ASCII olmayan karakterlerin yerine dostça "soru işaretli elmas" alıyorum.

#!/usr/bin/env perl -w

use strict;
use utf8;

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

Neyi yanlış yaptığım hakkında bir fikrin var mı? Çıktıda 'Çirçös' olmasını bekliyorum ama onun yerine 'ir s' alıyorum.

use utf8;Unicode çıktısını etkinleştirmez - programınızda Unicode yazmanıza olanak tanır. İfadenizden önce bunu programa ekleyin print():

binmode(STDOUT, ":utf8");

Bunun yardımcı olup olmadığına bak. Bu STDOUT, sıradan ASCII yerine UTF-8'de çıktı almalıdır .

Açık pragmayı kullanabilirsiniz .

Örneğin. aşağıda STDOUT, STDIN ve STDERR komutlarını UTF-8 kullanacak şekilde ayarlar ....

use open qw/:std :utf8/;

TMTOWTDI , çalışma şeklinize en uygun yöntemi seçin. Çevre yöntemini kullanıyorum, böylece düşünmek zorunda kalmıyorum.

In çevre :

export PERL_UNICODE=SDL

üzerinde komut satırından :

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

veya binmode ile :

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

veya PerlIO ile :

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

veya açık pragma ile :

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

Ayrıca kodunuzdaki dizelerin utf-8 olduğunu da söylemek istersiniz. Bkz Neden Varsayılan olarak, modern Perl önlemek UTF-8 mi? . Yani sadece PERL_UNICODE=SDALdeğil, aynı zamanda ayarlayın PERL5OPT=-Mutf8.

Teşekkürler, sonunda utf8 :: kodlamasını kodun her yerine koymamak için bir çözüm buldum. Utf8'deki dosyaları yazmak ve okumak gibi diğer durumlar için sentezlemek ve tamamlamak ve ayrıca utf8'deki YAML dosyasının LoadFile ile çalışır

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 burada:

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

kabuğunuzda yapın: $ env | grep LANG

Bu muhtemelen kabuğunuzun bir utf-8 yerel ayarı kullanmadığını gösterecektir.