メール用cgiを作成した。
cgiが置いてあるサイトを物色。しかしながら、いずれも、sjis,eucのものが雑多だ。
utf8で解説してあるサイトはそんなに多くない。
sjis,euc対応のcgiについて、実際に動かしてみて、文字化けを直していく方法で、対処してみた。
perl5.xでは、標準でutfを処理する部分が入っているそうだ。
なので、まずは
use Encode::Guess qw/ shiftjis euc-jp 7bit-jis /;
use Encode qw/ from_to /;
を冒頭に追加。
通常は、jcode.plを使用して日本語を変換しているようだ。
変換の部分を徐々に直していく。
require( "jcode.pl" ); ←この部分は消すまでもない
&convert_jcode ←このようなコードは消す
以下、メールの題名や本文などの日本語部分は、入力文字がutfなので、以下のように変更
from_to ( $mail_subject , 'utf8' , '7bit-jis' );
これで、ほぼ満足のいく結果となる。