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

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

No.9 ベストアンサー 回答者： petita 回答日時： 2011/08/31 22:54

失礼しました。

$val=~s/(?<!\xA1)\xA1\xA5/\x2E/g;
でいいと思いますが、J(j)code::tr を使う方が良いかもしれませんね。

この回答へのお礼

petitaさん

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

教えて頂いたやり方で変換されていました！

ありがとうございました！

でもJ(j)code::tr を使う方がいいのですね。。

お礼日時：2011/09/01 08:28

No.10 回答者： ryu_chan 回答日時： 2011/09/01 09:30

現在は標準モジュールのEncodeを用いるのが一般的です。

Encodeモジュールのdecode関数でテキスト文字列に変換してから文字列処理をします。

Encodeモジュールを使えば例えば以下のようにできます。

use Encode;

$val = decode "euc-jp", $val;
eval decode "euc-jp", '$val =~ tr/０-９Ａ-Ｚａ-ｚ＠．＿－/0-9A-Za-z@._-/';

if($@) {
エラー処理
}

$val = encode "euc-jp", $val;

JcodeはEncodeのラッパーなので、おそらくJcode内部では上記と同じような処理が行われています。ただし、既にJcodeを多用されているようなので、Jcodeで解決できればそれでいいとは思います。

文字化けの可能性は他にも沢山あり、今回の全角スペース＋カタカナは氷山の一角です。No.9さんの「J(j)code::tr を使う方が良いかもしれませんね。」は、そのことも指しています。

この回答へのお礼

ryu_chanさん

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


use Encode;を使うといいんですね！
今後のためにも調べてみます！

文字化けについては、これを使うと完璧！というのがないんですね。。

日本語はめんどくさいですね。。(笑)

でも色々と勉強になりました！

皆様ありがとうございました！

お礼日時：2011/09/02 09:14

No.8 回答者： kumoz 回答日時： 2011/08/31 19:10

> &Jcode::tr(\$val, '０-９Ａ-Ｚａ-ｚ－＠．＿', '0-9A-Za-z-@._');

↓
&Jcode::tr(\$val, '－０-９Ａ-Ｚａ-ｚ＠．＿', '-0-9A-Za-z@._');

見落としていたのですが、可能性としてハイフンの位置が悪いのかもしれません。置換文字列 '0-9A-Za-z-@._' の z と @ の間の - がエラーの原因になっている可能性があります。ハイフンを先頭または末尾に移動して試してみてはどうでしょうか？

http://d.hatena.ne.jp/hiratara/20071226/1198685671

ネット上では Jcode の tr() はハイフンに弱いという情報があります (上記 URL)。面倒ですが、小分けにして書いてみてはどうでしょうか？ １つずつ追加しながら実行してみると、どこでエラーが発生しているのか分かるかもしれません。

$j = Jcode->new(\$val);
$j->tr('０-９', '0-9');
$j->tr('Ａ-Ｚ', 'A-Z');
$j->tr('ａ-ｚ', 'a-z');
$j->tr('＠．＿', '@._');
$j->tr('－', '-');

この回答へのお礼

kumozさん

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

&Jcode::tr(\$val, '－０-９Ａ-Ｚａ-ｚ＠．＿', '-0-9A-Za-z@._');

↑これで試させて頂いたところ、この部分で同じくInternet Server Errorになってしまいました。


$j = Jcode->new(\$val);
$j->tr('０-９', '0-9');
$j->tr('Ａ-Ｚ', 'A-Z');
$j->tr('ａ-ｚ', 'a-z');
$j->tr('＠．＿', '@._');
$j->tr('－', '-');

↑こちらはエラーにはならなかったのですが、特に変換されずにスルーされていました。

何か根本的におかしいのでしょうか。。。(泣

他に確認するところがありましたら教えてください。

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

お礼日時：2011/09/01 08:26

No.7 回答者： kumoz 回答日時： 2011/08/31 12:38

> &jcode::tr(\$val, '０-９Ａ-Ｚａ-ｚ－＠．＿', '0-9A-Za-z-@._');

手元にテストできる環境がないので誤っているかもしれませんが、Jcode.pm では最初を大文字にして &Jcode::tr をまず試してみてください。(ちなみに、jcode.pl では最初の文字が小文字で &jcode::tr を使う。)

上記の方法を試してもダメな場合は、オブジェクト指向のやり方もあります。

$j = Jcode->new(\$val);
$j->tr('０-９Ａ-Ｚａ-ｚ－＠．＿', '0-9A-Za-z-@._');

この回答へのお礼

kumozさん

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

はい、大文字にしてもダメだったのですが、もう一つ教えて頂いたコードを試してみましたがダメでした。(泣

もし他にやり方がありましたら教えてください。

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

お礼日時：2011/08/31 12:58

No.6 回答者： kumoz 回答日時： 2011/08/31 05:33

> #全角半角処理

> $val =~ s/\＠/\@/g;
> $val =~ s/\．/\./g;
> $val =~ s/\＿/\_/g;
> $val =~ s/\－/\-/g;

EUC-JP では第１バイトと第２バイトに重複したコードが使われるので、上記のような正規表現は文字化けの危険が伴います。Jcode には tr() 関数が付属していまず。下記の URL に使い方が書いてありますので、参照ください。

http://mikeneko.creator.club.ne.jp/~lab/kcode/jc …
http://openlab.jp/Jcode/Nihongo.html

この回答へのお礼

kumozさん

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

教えて頂きましたサイトを見て、
このようにしてみましたが、エラーになってしまいました。。
このコードではいけないのでしょうか。。(泣

&jcode::tr(\$val, '０-９Ａ-Ｚａ-ｚ－＠．＿', '0-9A-Za-z-@._');


ちなみに、Jcode.pmを使っています。

お礼日時：2011/08/31 11:49

No.5 回答者： petita 回答日時： 2011/08/30 21:15

$val=~s/\xA1{1}\xA5/\x2E/g;

この回答へのお礼

petitaさん

ご丁寧にありがとうございました。

早速試してみましたが、教えて頂いたコードを入れてみますと、
今度は全角スペース後のカタカナが文字化けしてしまい、戻ってしまいました。(泣

もちろん、このコード↓
$val =~ s/\．/\./g;

は削除しています。

この1行を入れるだけではダメなのでしょうか。

ちなみに、Jcode.pmを使っています。

お礼日時：2011/08/31 11:45

No.4 回答者： petita 回答日時： 2011/08/30 10:52

「 $val =~ s/\．/\./g; 」 のところが原因です。

EUC-JP文字セットでは、全角空白は 「\xA1\xA1」、全角ピリオドは [\xA1\xA5]、全角カタカナの１バイト目は「\xA5」 だからです。

この回答へのお礼

petitaさん

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

確かにその部分をコメントアウトしたら、カタカナが文字化けせずに表示されました！
ありがとうございました！

ちなみに、この場合はピリオドの変換はどのようにするのが良いのでしょうか。
良かったら教えてください。よろしくお願いいたします。

お礼日時：2011/08/30 12:55

No.3 回答者： ORUKA1951 回答日時： 2011/08/30 10:38

＞全角カタカナの場合、全角スペースの後に続くと文字化けしているみたいです。

　これは経験がないのでわかりませんが、ありえない動作です。
　該当するフォームと、Perlの処理部分、おび出力HTMLを見ないとなんとも・・

　ローカルでテストできれば、それぞれの時点で
print ERROR "line 152:$_\n";
とでもして、その時点での値を出力してみるとか・・

この回答へのお礼

ORUKA1951さん

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


petitaさんがご回答してくださいましたが、ピリオドの変換が良くなかったみたいです。

お礼日時：2011/08/30 12:54

No.2 回答者： ORUKA1951 回答日時： 2011/08/30 09:12

＞全角スペースとカタカナが続いているのが良くないみたい

と
＞文字コードはEUCを使っています。
は矛盾してますけど。
　EUCには半角カタカナはないです。EUC-JPにはありますが、それでも下記の問題を含んでいます。
EUC-JP ( http://ja.wikipedia.org/wiki/%E5%8D%8A%E8%A7%92% … )

　そもそも半角カタカナをHTMLに記述することには無理があり、半角カタカナを全角カタカナに変換するか、HTMLをUTF-8にするか、数値文字参照( HTML4 で使える文字実体参照 ( http://www.ne.jp/asahi/minazuki/bakera/html/refe … ) の下のほう)で記述することになるでしょう。

　詳しい処理については、
Perlメモ ( http://www.din.or.jp/~ohzaki/perl.htm#JP_EUC_JP )の「日本語を扱う」の項目をご覧ください。

　ま、Perl5.8以降なら、UTF-8に対応しているので、UTF-8で完結したほうが良いでしょう。(ライブラリは使わなくてすむ)

この回答へのお礼

ORUKA1951さん

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

半角カタカナが入力された場合は全角カタカナに変換するようにしているので、
半角の場合は問題ないのですが、全角カタカナの場合、全角スペースの後に続くと文字化けしているみたいです。

ちなみに半角スペースの後の全角カタカナは文字化けしないようです。

他の入力フォームでも使っているので、出来たらEUCの文字コードのまま使いたいのですが、UTF-8にした方がいいでしょうか。。

お礼日時：2011/08/30 09:44

No.1 回答者： gadgetwatch 回答日時： 2011/08/29 19:42

フォーム画面および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にして表示するようにしています。
（あまり必要ないかもしれませんが。。）

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

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

お礼日時：2011/08/30 08:24