やはり、ケータイユーザーなのだろう。
送信フォームで半角カタカナが使えないという。
さっそく半角カタカナで送信してみる。
確認画面ですでに化けている。
ちなみに、僕が普段使っている送信フォームのシステムはperlで作られたCGI。
ベースはこの業界ではすでに老舗の老舗になっている「ネットサーフレスキュー（Web裏技）」の「WebFORM」。
これをいろいろと改良して今まで使ってきている。
このプログラムは日本語処理に有名な「jcode.pl」を使用している。
色々調べてみてたどり着いたのは以下の記事。
□ CGI 半角カナでも文字化けしない jcode.pl の使い方！ さとーＣ＋＋ぶろぐ/ウェブリブログ
文字コード変換時に，jcode.plの持っている 自動文字コード認識機能を利用せず，もともとの漢字コードを明確に 指定してやればよい。
ということで、元々の漢字コードを調べるプログラムとして以下のプログラムを紹介している。
$buffer1 = $buffer;
$buffer1 =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$kcode = &jcode::getcode(*buffer1);
こちらをまずは採用。$buffer1 =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
$kcode = &jcode::getcode(*buffer1);
具体的にはデータ入力処理とデコード処理の間に配置する。
次に、
指定方法は，convertの３番目の引数を省略せずに書けばよいだけ。とのことなので、デコード処理内プログラムにある
&jcode'convert(*name,'sjis'); &jcode'convert(*value,'sjis');
を
&jcode'convert(*name,'sjis',$kcode);&jcode'convert(*value,'sjis',$kcode);
に書き換える。ここまでで動作確認をすると。
よし、確認画面でしっかり表示されている。
ところが、この状態で送信しても結局受信したメールでは文字化けが起きてしまう。
これはもう、半角カタカナを全角カタカナに変換して送信してしまうことにした。
それに関してはこちらの記事が参考になった。
□ 日本語文字コード(jcode.plの使い方)-ミスティーネットPerl･CGI講座-
半角カナを全角カナに変換する場合は、&jcode'convert() を使います。
[書式] &jcode'convert(文字列, 変換したい文字コード, 文字列の文字コード, 'z か h');
4番目の引数に「z」を入力すると半角カナから全角カナへ変換します。
つまり、上記
&jcode'convert(*name,'sjis',$kcode);&jcode'convert(*value,'sjis',$kcode);
を&jcode'convert(*name,'sjis',$kcode,'z');&jcode'convert(*value,'sjis',$kcode,'z');
に書き換えればOK。確認画面。
送信メール。
また遊びに来ます！！
ありがとうございます。。