올바른 방법은 아직 모르겠는데...
일단 내가 사용하고 있는 방법은 다음과 같다.
Perl Unicode(ANSI, utf-8, utf-16LE, ...) 부분은 뭔가 알듯 말듯 모호하네...
일단 내가 사용하고 있는 방법은 다음과 같다.
open($out, ">:raw:encoding(UTF-16LE)", $outFileName) || die "cannot open $outFileName";
print $out "\x{FEFF}"; # write UTF-16LE BOM
print $out "TEST\n";
close($out);
print $out "\x{FEFF}"; # write UTF-16LE BOM
print $out "TEST\n";
close($out);
Perl Unicode(ANSI, utf-8, utf-16LE, ...) 부분은 뭔가 알듯 말듯 모호하네...
728x90