utf-8のCSVをshift_jisに変換したい
Perl5.8でCSVをダウンロードできる仕組みをつくっています。
utf-8でコードを記述しているため当然ながらダウンロードしたCSVデータもutf-8です。
しかしながらエクセルでダブルクリックで開く場合どうしてもutf-8だと支障があるため、
shift-jis(もしくはcp932)で開きたいのです。
ダウンロード時に文字とファイルをshift_jisに変換する方法はございませんでしょうか？
以下作成済みのコード
-------------------------------------------------------
if(!open(OUT,"$CSV_FILE")){&error('CSVデーターファイルがありません'); }
else{
@csvdata=<OUT>;
close(OUT);
}
foreach(@csvdata){
$downloaddata .= $_;
}
print "Content-Disposition: attachment; filename=$CSV_FILE_NAME\n\n";
print $downloaddata;
exit;
-------------------------------------------------------
何卒よろしくお願いいたします。
お礼
お返事くださいました皆様誠に有難うございます。ばっちり出来ました。先着でポイントさせていただきました。本当に有難うございます。