TSperl 発言

泥造です。覚え書き。

改行しない場合は binmode 関係ないはず、と思ったら大間違い。
0x0A を含む文字（「上」とか）も化けてしまう。

%tconv utf-8 Shift_JIS test1.pl
use strict;
use utf8;
my $file = "text.utf32be";
open(FILE, ">encoding(UTF-32BE)", $file) or die;
print FILE "上"; # "\x00\x00\x4E\x0A"
close FILE;

%perl test1.pl & dump -h text.utf32be
00000000  00 00 4E 0D 0A         -

%tconv utf-8 Shift_JIS test2.pl
use strict;
use utf8;
my $file = "text.utf32be";
open(FILE, ">:raw:encoding(UTF-32BE):crlf", $file) or die;
print FILE "上"; # "\x00\x00\x4E\x0A"
close FILE;

%perl test2.pl & dump -h text.utf32be
00000000  00 00 4E 0A            -

%
-- 
泥造 FZH01112@...