半角カナ入力について

質問

perlを使って入力項目を作っている人間です。
ある事に苦戦しています。
半角カナを入力すると文字化けが出てしまうので半角カナを入力しないように注意を促しているのですが、どうしても半角カナを入れてしまう人が入るので、半角カナを入力した時点で、注意事項をＣＧＩで処理したいと思います。
しかし、ＣＧＩで処理する場合はどのようにすればいいのか解りません。
何かヒントなどを教えて頂けないでしょうか ？
又参考になるＵＲＬなどがありましたら教えて下さい。
お願します。

回答No.3

leaz024

文字コードの変換には jcode.pl をお使いですか？
半角カナが化けるというのは、半角カナを、そのまま jcode::convert にかけるからです。
フォームの中に、ダミーで良いので、確実に jcode が sjis か euc かを判別できる全角文字を入れておき、それの文字コードを使って jcode を通すようにします。（多分、普通の全角文字は、大抵は正確にコード判定できると思います。）

例えば、HTMLのFORM内に、次の行を入れておきます。
　　<INPUT type="hidden" name="samplecode" value="あ">

で、デコードルーチンを、次のようにしておきます。
　　foreach (@pairs) {
　　　　my ($key,$val) = split(/=/,$_);
　　　　$val =~ tr/+/ /;
　　　　$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
　　　　# この位置で jcode にかけると、半角カナが化ける
　　　　$FORM{$key} = $val;
　　}
　　# 「あ」の文字コードを調べ、全パラメータを変換
　　$icode = &jcode::getcode(\$FORM{samplecode});
　　foreach (keys %FORM) {
　　　　&jcode::convert(\$FORM{$_}, 'sjis', $icode);
　　}

こうすることで、シフトJISで半角カナを使っても、文字化けしません。

# jcode::getcode によって、$icode には「euc」や「sjis」が入るので、それを jcode::convert の第３引数にします。
# この第３引数は、元の文字コードを明示指定するもので、省略すると jcode が getcode を使って自動判別します。

参考URL：

http://www.mikeneko.ne.jp/~lab/kcode/jcode.html