Shift_JISをeuc-jpに変換

質問

エクセルのデータをテキストに保存し直したデータがあります。
中身はタブ区切りの日本語の単語が数千レコード。

この時、このテキストファイルの文字コードは当然「シフトJIS」ですが、これをperlで受け取ってフォームから文字検索を行いテーブルに検索結果を表示させるプログラムを作りました。

シフトJISなので案の定、文字化けを起こしました。
なのでデータを一度「euc-jp」に変換すると「表」や「ー」などは文字化けを起こすことなく表示するようになりました。

ところが、「(1)、(2)、(3)・・・」の丸数字だけが何故か文字化けしたままで直りません。

なんとかなりませんでしょうか？

#データの読み込み
open F_DATA, '<', "$cgiparam" or die;
　my @lines = <F_DATA>;
close F_DATA;

#文字コードの変換
foreach (@lines){
　Encode::from_to($_,"Shift_JIS", "euc-jp");
}

よろしくお願いします。

回答No.1

sakusaker7 · ベストアンサー

標準のEncodeだけでは対応できませんので、
NARUSE, Yui / Encode-EUCJPMS - search.cpan.org
http://search.cpan.org/~naruse/Encode-EUCJPMS/
をインストールして、

Encode::from_to($_,"Shift_JIS", "euc-jp");
を
Encode::from_to($_,"cp932", "euc-jpms");
に変更してください。
このとき、
use Encode;
も
use Encode::EUCJPMS;
に変更してください。

もしCコンパイラをお持ちでないのなら、
ひとりでもグループ - 浅倉卓司＠blog風味？ - Encode-EUCJPMS-0.07.zip
http://asakura.g.hatena.ne.jp/asakura-t/20061102/1162451401
からコンパイル済みのものが入手できます。

補足

返事遅くなりました。
モジュールのインストールが初体験だったもので手間取っていました。
なんとかローカル環境では動作しました！

ただ実際に運用を行うのはレンタルサーバーなのでこのタイプのモジュールは残念ながら導入出来ません。

他に何か良い案がございませんでしょうか？

回答No.2

sakusaker7

jcode.pl ならば、丸付き数字でもeuc-jpに変換してくれるようです。

sjis → euc-jp 限定ならjcode.plを使う手もあるかもしれません。
もしjcode.plも使えないということなら、

#(1)等は本当は丸付き数字です
my %table = qw(
(1) ADA1 (2) ADA2 (3) ADA3 (4) ADA4 (5) ADA5 (6) ADA6 (7) ADA7 (8) ADA8
(9) ADA9 (10) ADAA (11) ADAB (12) ADAC (13) ADAD (14) ADAE (15) ADAF (16) ADB0
(17) ADB1 (18) ADB2 (19) ADB3 (20) ADB4
);

sub my_escape {
my $str = shift;
foreach my $key (keys %table) {
$str =~ s/$key/%$table{$key}/g;
}
$str;
}

sub my_decode {
my $src = shift;
$src =~ s/%([A-Z0-9]{4})/pack 'H4', $1/ge;
$src;
}

my $str2 = my_escape($str);
my $dest = my_decode($str2);
print $dest;

のようにテーブルを作っておいて、自前でエスケープしてから
Encode::from_toで変換、エスケープしたものを復帰する。
という手順でどうでしょう?

ところでいわゆる「シフトJIS」でEncodeのshiftjisに
入っていない文字は他にも結構ありますが
その辺は大丈夫なんでしょうか?

お礼

ご回答ありがとうございました。

補足として、「jcode.pl」も残念ながら使用不可でした・・・

あとご指摘の通りその他の「Encodeのshiftjisに
入っていない文字」もいくつか化けたままでした。
ですが、その他の文字は今のところ使っていないので当面はこのままでも大丈夫かと思っています。

それよりも他の問題点が出てきたのでそちらの対処を先に済ませたいと考えます。