シフトJISからUTF-16へ変換
PerlでシフトJISからUTF-16への変換ルーチンを組んでみました。
◆ソース
use strict; use warnings; use Encode qw(from_to); binmode STDIN; binmode STDOUT; while (<>) { from_to($_, "shift_jis", "UTF-16BE"); print $_; } # from_to関数の第3引数を以下を参照して替える # BOM付きビックエディアン UTF-16 # BOM無しビックエディアン UTF-16BE # BOM無しリトルエディアン UTF-16LE # BOM付きリトルエディアン 不明
◆実行方法
C:\wk>perl sj2utf16.pl < sj.txt > UTF-16.txt C:\wk>perl sj2utf16.pl < sj.txt > UTF-16BE.txt C:\wk>perl sj2utf16.pl < sj.txt > UTF-16LE.txt
Encodeモジュールのfrom_to関数で、なぜか、BOM付きリトルエディアンの指定が不明です。
知っている方、教えてください。(Supported.podを見ても分かりませんでした)