Làm cách nào để xuất UTF-8 từ Perl?

Tôi đang cố gắng viết một tập lệnh Perl bằng pragma "utf8" và tôi nhận được kết quả không mong đợi. Tôi đang sử dụng Mac OS X 10.5 (Leopard) và tôi đang chỉnh sửa bằng TextMate. Tất cả các cài đặt của tôi cho cả trình chỉnh sửa và hệ điều hành của tôi đều được đặt mặc định để viết tệp ở định dạng utf-8.

Tuy nhiên, khi tôi nhập phần sau vào một tệp văn bản, lưu nó dưới dạng ".pl" và thực thi nó, tôi nhận được "hình thoi có dấu chấm hỏi" thân thiện thay cho các ký tự không phải ASCII.

#!/usr/bin/env perl -w

use strict;
use utf8;

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

Bất kỳ ý tưởng những gì tôi đang làm sai? Tôi mong đợi nhận được 'Çirçös' trong đầu ra, nhưng thay vào đó tôi nhận được ' ir s'.

use utf8;không kích hoạt đầu ra Unicode - nó cho phép bạn nhập Unicode trong chương trình của mình. Thêm điều này vào chương trình, trước print()tuyên bố của bạn :

binmode(STDOUT, ":utf8");

Xem nếu điều đó có ích. Điều đó sẽ tạo STDOUTra đầu ra trong UTF-8 thay vì ASCII thông thường.

Bạn có thể sử dụng pragma mở .

Ví dụ. bên dưới đặt STDOUT, STDIN & STDERR để sử dụng UTF-8 ....

use open qw/:std :utf8/;

TMTOWTDI , đã chọn phương pháp phù hợp nhất với cách bạn làm việc. Tôi sử dụng phương pháp môi trường để tôi không phải suy nghĩ về nó.

Trong môi trường :

export PERL_UNICODE=SDL

trên dòng lệnh :

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

hoặc với binmode :

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

hoặc với 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";

hoặc với pragma mở :

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

Bạn cũng muốn nói rằng các chuỗi trong mã của bạn là utf-8. Xem Tại sao Perl hiện đại tránh UTF-8 theo mặc định? . Vì vậy, thiết lập không chỉ PERL_UNICODE=SDALmà còn PERL5OPT=-Mutf8.

Cảm ơn, cuối cùng đã có một giải pháp để không đặt utf8 :: encode lên toàn bộ mã. Để tổng hợp và hoàn thành cho các trường hợp khác, như ghi và đọc tệp trong utf8 và cũng hoạt động với LoadFile của tệp YAML trong 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}." ";

nơi cache.yaml là:

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

làm trong shell của bạn: $ env | grep LANG

Điều này có thể sẽ cho thấy rằng trình bao của bạn không sử dụng ngôn ngữ utf-8.