CGI（Perl）の文字化けについて

質問

WEBフォームからの入力データをHTMLに加工して表示するというシンプルなCGIプログラムなのですが、
全角スペースの後に全角カタカナが入ると、全角スペースの部分から後が文字化けしてしまいます。
他はきちんと表示されているのですが、全角スペースとカタカナが続いているのが良くないみたいで、文字化けしてしまうようです。
全角スペースを取ってしまえばいいのかと思い、WEBで検索して色々と試してみましたが、変わりません。。
このような場合はどういう対処をするのが一番いいのでしょうか。
文字コードはEUCを使っています。（WEBフォーム、CGIとも）
教えてください。よろしくお願いいたします。

回答No.1

gadgetwatch

フォーム画面およびCGIともにEUCなら、全角スペース関連で化けるということはあまりないような気がします。

CGI側でフォームから送られたデータを変数に格納している部分があると思いますが、そのライブラリなどは何をお使いですか？そのあたりからヒントが得られるかもしれません。

まずは全部でなくていいので、入力データのデコード部分と実際の表示部分のソースを見せていただくことは可能ですか？

お礼

gadgetwatchさん
ご返答ありがとうございました。

全角スペースの後にカタカナ、
半角スペースの後にカタカナ、
スペース無しの後にカタカナ

で調べてみたら、全角スペースの後にカタカナの時のみ文字化けしていました。

日本語処理ライブラリはJcode.pmを使っています。

デコード部分です。

$val =~ tr/+/ /;
$val =~ s/%([0-9a-fA-F]{2})/pack("C",hex($1))/eg;

if($opt){

#英数字全角半角処理
$a = qr{(?<!\x8F)};
$b = qr{(?=(?:[\xA1-\xFE][\xA1-\xFE])*(?:[\x00-\x7F\x8E\x8F]|\z))}x;

$val =~ s/$a\xA3([\xB0-\xB9\xC1-\xDA\xE1-\xFA])$b/pack("C", ord($1) - 0x80)/oeg;

#全角半角処理
$val =~ s/\＠/\@/g;
$val =~ s/\．/\./g;
$val =~ s/\＿/\_/g;
$val =~ s/\－/\-/g;

表示部分は、

&Jcode::convert(\$text, 'euc');

HTMLに加工したものをEUCにして表示するようにしています。
（あまり必要ないかもしれませんが。。）

これで足りますでしょうか。

よろしくお願いいたします。