jisコードで16進数の『3ｃ』から始まる文字

質問

だけが文字化けしてしまいます。今までそういった現象はまったく起きていなかったのですが、突然発生するようになりました。
文字化けの内容。
『治』が『。』『爾』が『「』
といった感じで、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;

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

回答No.1

11th_style · ベストアンサー

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

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

お礼

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