EUCで出力されるプログラムをS-JISで出力するようにしたい。

perlはまだかじる程度です。

あるサイトで配布されていたプログラムを使用していたのですが、
このプログラムでは、出力されるdatファイル(テキストファイル)がEUCで出力されます。
これをShift-JISで出力させたいんですが…できるんでしょうか。

No.4 ベストアンサー 回答者： j-mika 回答日時： 2007/09/07 12:43

こんにちは。

「かじる程度」という事なので。もうちょっとだけかじれる程度の私が(^^;

エディターは何をお使いですか？　コードを指定して保存できる物でしょうか？
出来ないのであれば、ひとまず
http://www.k-collect.net/program.htm

68行目の
$CharSet = 'EUC-JP'; # 漢字コード
$Encoding = 'euc';
を
$CharSet = 'shift_jis'; # 漢字コード
$Encoding = 'sjis';
へ変更

1410行目の
print " <META http-equiv=\"Content-Type\" content=\"text/html; charset=EUC-JP\">\n";
を
print " <META http-equiv=\"Content-Type\" content=\"text/html; charset=shift_jis\">\n";
へ変更

これで、プログラムをshift_jisで保存、運用するとlogはshift_jisで
出来ると思います。

この回答へのお礼

j-mikaさん、ありがとうございました。
ログはs-jisで保存されました！

しかし、sjisにすると今まで正常に表示されていた文字(例："予約")などが文字化けしてしまいました。
他にも、祝日の名前などが文字化けします。
でも、これはひとつひとつ調べて文字化けするところで\を入力しておけば大丈夫そうですね。
もし他にこの文字化けを改善する良い方法があればお願いします。

今回は本当にありがとうございました。
感謝です。

お礼日時：2007/09/07 20:02

No.5 回答者： j-mika 回答日時： 2007/09/08 11:09

うわわ・・・しまった。

使い出しと思っていたので、補足を忘れていました。
今までのログを取ってるといいのですが。

今までのログは、eucででていて。
プログラムはそれをsjisで読んで保存したので。
これまでのデータに文字化けが生じます。

これまでのデータを削除（空のログファイルをＵＰ）して、改めて使い出すと文字化けはないかなと思いますが、いかがでしょうか。

本当の手順としては、ログファイルもＤＬして、sjisに変更、ＵＰしないといけません。
気がまわらなくてすみませんでした(--;

No.3 回答者： sakusaker7 回答日時： 2007/09/07 03:33

require 'jcode.pl';

してるんだから、Jcode.pmだのnkfだの持ち出さないでも
出力する前に jcode::convert で sjisにしてから出力すればいいんじゃないでしょうか。

No.2 回答者： maku_x 回答日時： 2007/09/07 03:27

perl で日本語を扱う場合は、Jcode モジュールを使用するのが一般的なようです(別途インストールが必要)。

http://digit.que.ne.jp/work/wiki.cgi?Perl%E3%83% …

No.1 回答者： yambejp 回答日時： 2007/09/07 01:21

てっとりばやくnkfで変換してみては？