燈明日記

■[Perlノート] シフト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関数の第３引数を以下を参照して替える
# 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を見ても分かりませんでした）

◆関連コンテンツ

• Unicodeの概略を理解する
  http://d.hatena.ne.jp/chaichanPaPa/20070622/1182516125
• UTF-16は、実は５種類ある！
  http://d.hatena.ne.jp/chaichanPaPa/20081124/1227514306

Permalink | コメント(0) | トラックバック(2) | 21:25