Bagaimana cara mengeluarkan UTF-8 dari Perl?

Saya mencoba menulis skrip Perl menggunakan pragma "utf8", dan saya mendapatkan hasil yang tidak diharapkan. Saya menggunakan Mac OS X 10.5 (Leopard), dan saya mengedit dengan TextMate. Semua pengaturan saya untuk editor dan sistem operasi saya secara default menulis file dalam format utf-8.

Namun, ketika saya memasukkan yang berikut ini ke dalam file teks, menyimpannya sebagai ".pl", dan menjalankannya, saya mendapatkan "berlian dengan tanda tanya" sebagai pengganti karakter non-ASCII.

#!/usr/bin/env perl -w

use strict;
use utf8;

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

Tahu apa yang saya lakukan salah? Saya berharap mendapatkan 'Çirçös' di output, tetapi saya mendapatkan ' ir s' sebagai gantinya.

use utf8;tidak mengaktifkan keluaran Unicode - ini memungkinkan Anda untuk mengetik Unicode dalam program Anda. Tambahkan ini ke program, sebelum print()pernyataan Anda :

binmode(STDOUT, ":utf8");

Lihat apakah itu membantu. Itu harus membuat STDOUTkeluaran dalam UTF-8, bukan ASCII biasa.

Anda bisa menggunakan pragma terbuka .

Misalnya. di bawah ini menetapkan STDOUT, STDIN & STDERR untuk menggunakan UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDI , pilih metode yang paling sesuai dengan cara Anda bekerja. Saya menggunakan metode lingkungan jadi saya tidak perlu memikirkannya.

Di lingkungan :

export PERL_UNICODE=SDL

di baris perintah :

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

atau dengan binmode :

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

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

atau dengan pragma terbuka :

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

Anda juga ingin mengatakan, bahwa string dalam kode Anda adalah utf-8. Lihat Mengapa Perl modern menghindari UTF-8 secara default? . Jadi atur tidak hanya PERL_UNICODE=SDALtapi juga PERL5OPT=-Mutf8.

Terima kasih, akhirnya mendapat solusi untuk tidak meletakkan utf8 :: encode di seluruh kode. Untuk mensintesis dan menyelesaikan kasus lain, seperti menulis dan membaca file di utf8 dan juga bekerja dengan LoadFile dari file YAML di 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}." ";

di mana cache.yaml adalah:

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

lakukan di shell Anda: $ env | grep LANG

Ini mungkin akan menunjukkan bahwa shell Anda tidak menggunakan lokal utf-8.