gooポイントが当たる質問投稿キャンペーン>>

だけが文字化けしてしまいます。今までそういった現象はまったく起きていなかったのですが、突然発生するようになりました。
文字化けの内容。
『治』が『。』『爾』が『「』
といった感じで、jisコードの3c20の+3から3c60の+2までの文字が半角カタカナに化けてしまいます。
コード内容は以下です。
#!/usr/bin/perl
#use KCatch qw( execdata );__DATA__
use CGI qw(:standard);
use Encode;
#use strict;
#use warnings;

require './jcode.pl';
require './mimew.pl';

#############################################
#処理開始
$query = CGI->new;

if(param('handleName')){
$handleName = $query->param('handleName');
}

if(param('nameLast')){
$nameLast = $query->param('nameLast');
#&jcode::convert(*nameLast,'euc-jp');
}

if(param('nameFirst')){
$nameFirst = $query->param('nameFirst');
&jcode::convert(*nameFirst,'euc-jp');
}

################################
#送信メール成型
$Mail_A= <<"EOF";
$handleName
$nameLast $nameFirst
EOF

##########################################
#コード変換
$Subject_A = &mimeencode($Subject_A);
$Subject_B = &mimeencode($Subject_B);
&jcode::convert(\$Mail_A,'jis');
&jcode::convert(\$Mail_B,'jis');

#受付側用を送信
open (SENDMAIL,"| $Sendmail -t -i");

print SENDMAIL <<"EOF";
To: $ToMailadd
From: $mailAddress
Subject: $Subject_A
MIME-Version: 1.0
Content-Type: text/plain\; charset="ISO-2022-JP\"
Content-Transfer-Encoding: 7bit

$Mail_A
EOF

close SENDMAIL;

です。足りない部分等ありましたら教えてください。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

$handleNameがEUCに変換されていないのではないでしょうか? $Mail_Aの合成部分で文字コードが混在しそうです。




後、文字化けとは一切関係ないですが、利用されていない「use Encode」が気になりました。jcode.plを使わずにすむと思います。
    • good
    • 0
この回答へのお礼

大変遅くなり誠に申し訳ございません。
修正できました。ありがとうございます

お礼日時:2006/03/01 13:32

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング