燈明日記 このページをアンテナに追加 RSSフィード

ごあいさつ

燈明日記へようこそ!!

燈明日記の主なテーマは、以下の通りです。

そして、燈明日記へ来られたのも『私』と『あなた』の何かのご縁です。なので、どうぞごゆっくりご覧下さい!


2008/11/26(水)

[] シフト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を見ても分かりませんでした)


◆関連コンテンツ

スパム対策のためのダミーです。もし見えても何も入力しないでください
ゲスト


画像認証