ファイル出力をUTF8NではなくてUTF8で行いたい

質問

おせわになります。

Shift-JISで記述したPerlで、ファイル出力をしようとしています。
------------------------------------
#!/usr/local/bin/perl
use encoding 'shiftjis';

$hoge="ほげ"
open(OUT,">file.txt")
binmode OUT;
print OUT $hoge;
close(OUT);
------------------------------------
希望はUTF8での出力なのですが、UTF8Nで出力されてしまいます。
どのようにすればいいのかご教授よろしくお願いします。

回答No.1

sakusaker7 · ベストアンサー

binmode OUT をしないのなら

#!/usr/bin/perl
use strict;
use encoding 'shiftjis';

my $hoge = 'ほげ';

open OUT, '>:encoding(utf8)', 'file.txt' or die $!;

my $bom = "\x{feff}"; #BOM
print OUT $bom;

print OUT $hoge, "\n";
close OUT;

で警告なしにBOMをつけてファイルを作れます。

どうしても binmodeをする必要があるのなら

#!/usr/bin/perl
use strict;
use encoding 'shiftjis';

my $hoge = 'ほげ';

open OUT, '>', 'file.txt' or die $!;
binmode OUT;

my $bom = "\x{feff}"; #BOM
utf8::encode($bom);
print OUT $bom;

utf8::encode($hoge);
print OUT $hoge, "\n";
close OUT;

こんなところですか?
#utf-8フラグは良くわからん

お礼

さっそくのご回答ありがとうございます。
おかげさまでひとつめの方法で無事解決することができました。
なぜそうなるのかはいまいち理解してませんが、おかげで助かりました。

ありがとうございました。