文字コードの変換

取得して保存したテキストファイルの文字コードを変換する方法が知りたいです。

ファイルはUTF-8で保存されていて、shiftjisに直して保存するにはどうしたらよいでしょうか？

No.3 回答者： sakusaker7 回答日時： 2007/01/25 23:44

utf-8(Unicode)とShiftJISの間には、計算して求まるような関係はありませんので、

表引きするよりありません。
が、自分で表を作るようなことはバグの元でしかないので、

お使いのPerlのバージョンが 5.8.0 以上なら標準添付のEncodeモジュールを使用して

use strict;
use warnings;

use Encode qw/from_to/;

$^I = ".bak";

while (<>) {
from_to($_, 'utf-8', 'sjis');
print;
}

こんな感じのスクリプトで、utf-8 → ShiftJISへの変換ができます
(これはバックアップファイルを残して変換結果を上書きします)。

使い方は
perl convert.pl foo.txt bar.txt quux.txt ...
てな感じで。

5.6以前のPerlを使っているのなら、Jcode.pmやUnicode::Japaneseという
モジュールを入手して(jcode.plはダメです)、それを使って変換できます。

No.2 回答者： kalze 回答日時： 2007/01/25 22:05

jcodeなどの文字コード扱えるライブラリを使ってはどうですか？

どうしても自分でやりたいのであれば、それぞれの文字コードの仕様を調べて計算してコンバートするしかないです

No.1 回答者： Cupper 回答日時： 2007/01/25 21:48

カテゴリ関係なしに回答してみます。

ファイルの拡張子をユニークなものに置き換えた後に、Internet Explorer で開いてファイルとして保存してください。
その際、保存形式でS-JISを選択することができます。

この回答への補足

すみません、言葉が足りなかったです。
Perlで、文字コードを変換するプログラムの書き方がわからず、の質問でした。
申し訳ないです。

補足日時：2007/01/25 21:48