ファイルの変換

質問

サーバ上にあるdata.txt(SJIS)をUTF-8にファイル変換して、
data1.txtとして別名で保存したいのですが
どのようにすればいいでしょうか？
Perl バージョン 5.008004 です。

回答No.1

stiffels · ベストアンサー

Encodeという標準ライブラリを使ってみたのですがどうでしょう？

use Encode;
my $buff;

open(FILE, "< C:\\data.txt");
foreach (<FILE>) {$buff .= $_;}
close(FILE);

Encode::from_to($buff, "sjis", "utf8");

open(FILE ,"> C:\\data1.txt");
print FILE "$buff";
close(FILE);

お礼

うまくいきました。ありがとうございます。

回答No.2

sakusaker7

そのShiftJISのテキストがどのような出自なのかわかりませんが、
Windowsユーザーが作ったドキュメントなどであるなら、
from_to($text, 'sjis', 'utf-8') よりは from_to($text, 'cp932', 'utf-8')
にしておいたほうが無難です。

これでも期待通り変換できない場合があったりしますけど。

お礼

data.txt(SJIS)はperlから出力されたものです。
ちがいがよくわかりませんがcp932でもうまくいきました。
ありがとうございました。