PerlからUTF-8を出力するにはどうすればよいですか？

「utf8」プラグマを使用してPerlスクリプトを記述しようとしていますが、予期しない結果が発生しています。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通常のASCIIではなくUTF-8で出力する必要があります。

openプラグマを使用できます。

たとえば 以下は、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";

またはopenプラグマで：

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

また、コード内の文字列はutf-8であるとも言いたいでしょう。最近のPerlがデフォルトでUTF-8を回避する理由を参照してください。。だからだけでなくPERL_UNICODE=SDAL、設定しPERL5OPT=-Mutf8ます。

おかげで、コード全体にutf8 :: encodeを含めないようにするための解決策がついに得られました。utf8でファイルを読み書きするなど、他のケースで合成して完了するため、またutf8でYAMLファイルのLoadFileと連携して動作します。

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ロケールを使用していないことを示しています。