Làm thế nào tôi có thể xuất UTF-8 từ Perl?

Question

Tôi đang cố gắng viết kịch bản Perl bằng cách sử dụng "pragma" utf8 và tôi nhận được kết quả không mong muốn. 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 soạn thảo và hệ điều hành của tôi đều được mặc định để ghi tệp theo định dạng utf-8.

Tuy nhiên, khi tôi nhập nội dung sau vào tệp văn bản, hãy lưu nó dưới dạng ".pl" và thực thi nó, tôi nhận "kim cương có dấu hỏi" thân thiện thay cho 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 nào tôi đang làm sai? Tôi mong đợi để có được 'Çirçös' trong đầu ra, nhưng tôi nhận được ' ir s' thay thế.

Answer 1

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

Xem điều đó có hữu ích không. Điều đó sẽ làm cho đầu ra STDOUT trong UTF-8 thay vì ASCII thông thường.

Answer 2

Chuyển hướng đầu ra sang tệp văn bản và thử điều đó trong trình chỉnh sửa. Nếu nó hiển thị tốt thì thiết bị đầu cuối của bạn có lỗi.

Answer 3

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

Điều này có lẽ sẽ cho thấy rằng vỏ của bạn không được sử dụng một miền địa phương utf-8.

Answer 4

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

Ví dụ: dưới đây trình bày STDOUT, STDIN & STDERR sử dụng UTF-8 ....

use open qw/:std :utf8/; 

Answer 5

TMTOWTDI, chọn phương pháp thích 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 vì vậy tôi không phải suy nghĩ về nó.

Trong environment:

export PERL_UNICODE=SDL 

trên command line:

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 qua các nhân open pragma:

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

Answer 6

Cảm ơn, cuối cùng có một giải pháp để không đặt utf8 :: encode trên tất cả các mã. Để tổng hợp và toàn diện cho các trường hợp khác, như viết và đọc tập tin trong utf8 và cũng làm việc với LoadFile của một file 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 

Answer 7

Bạn cũng muốn nói rằng các chuỗi trong mã của bạn là utf-8. Xem Why does modern Perl avoid UTF-8 by default?. Vì vậy, không chỉ đặt PERL_UNICODE=SDAL mà còn là PERL5OPT=-Mutf8.