フォームCGIの確認メールになると表示が違ってしまうのをなんとかしたいのです。

他社の作ったフォームを改造して項目を追加したのですが、
@mm[0]="ご注文品";@fg[0]=1;@fm[0]=$total;
@mm[1]="郵便番号";@fg[1]=1;@fm[1]="$in{'post1'}－$in{'post2'}";
@mm[2]="ご住所1";@fg[2]=1;@fm[2]="$in{'add1'}$in{'add2'}";
@mm[3]="ご住所2";@fg[3]=1;@fm[3]=$in{'add3'};
@mm[4]="ふりがな";@fg[4]=0;@fm[4]=$in{'kana'};
@mm[5]="お名前";@fg[5]=1;@fm[5]=$in{'name'};
@mm[6]="E-mail";@fg[6]=1;@fm[6]=$in{'mail'};
@mm[7]="TEL";@fg[7]=1;@fm[7]="$in{'tel1'}－$in{'tel2'}－$in{'tel3'}";
@mm[8]="FAX";@fg[8]=0;@fm[8]="$in{'fax1'}－$in{'fax2'}－$in{'fax3'}";
@mm[9]="生年月日";@fg[9]=1;@fm[9]="$in{'yy'}年$in{'mm'}月$in{'dd'}日";
@mm[10]="性別";@fg[10]=1;@fm[10]=$in{'sex'};
@mm[11]="お届け時間";@fg[11]=0;@fm[11]=$in{'ptime'};
@mm[12]="お届け日";@fg[12]=0;@fm[12]=$in{'pday'};
@mm[13]="お支払い方法";@fg[13]=1;@fm[13]=$in{'pay'};
@mm[14]="ネットマイル";@fg[14]=0;@fm[14]=$in{'netm'};
@mm[15]="お肌の状態";@fg[15]=1;@fm[15]=$in{'msg'};
@mm[16]="受付番号";@fg[16]=0;@fm[16]=$in{'number'};
@mm[17]="サポート";@fg[17]=1;@fm[17]=$in{'support'};

確認画面ではうまくいっているのに確認メールが来て見ると余計な文字が入ってしまいます。上記の部分の郵便番号とTEL、FAXの部分の「－」がなぜか重複してしまい、「156－0022－」「03－0002－5544－－」となってしまいます。－の使い方が悪いのでしょうか？ご教授をお願いいたします。

No.1 ベストアンサー 回答者： vivlet 回答日時： 2005/09/29 17:39

確認画面できちんと出るなら、ファームデータの受け取り方ではないと思います。

メール本文を作ってる部分が知りたいですね

この回答への補足

返答ありがとうございます！
おそらくなのですが下記かと・・・
#メールの編集
$yrmail=@fm[6]; @fm[9]=$in{'age'};
foreach $i(0..$#km){
@tt[$i]=$in{"tt$i"};
@ks[$i]=$in{"ks[$i]"};
@kk[$i]=$in{"kk[$i]"};
}
@fm[15] =~ s/<BR>/\n/g;
$times = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime($times);
@week = ('日','月','火','水','木','金','土');
$date = sprintf("%04d\/%02d\/%02d\(%s\)%02d\:%02d",$year+1900,$mon+1,$mday,$week[$wday],$hour,$min);
#--- from USER
&msgB_set;
open(MAIL, "| $sendprg -t");
print MAIL "To: $mymail\n";
print MAIL "From: $yrmail\n";
print MAIL "Subject: $subject1\n";
print MAIL "MIME-Version: 1.0\n";
print MAIL "Content-Transfer-Encoding: 7bit\n";
print MAIL "Content-type: text/plain; charset=ISO-2022-JP\n\n";
print MAIL "$body2";
close(MAIL);

foreach $i(1..$#km){
if(@kk[$i] >0){

if (($i eq 6 && @ks[$i] >3) || ($i eq 7 && @ks[$i] > 4)){ @kk[$i]= @kk[$i]*0.9; }
$Su=@kk[$i]; &Kanma;
$af .= "\&si=@kk[$i].1.@kk[$i].@kc[$i]";
}
}
$times = time;
($sec,$min,$hour,$mday,$mon,$year,$wday,$dmy,$dmy) = localtime($times);
$date = sprintf("%04d%02d%02d%02d%02d%02d",$year+1900,$mon+1,$mday,$hour,$min,$sec);
$af .= "\&ts=$date";
$af .= "$af2\n";
#--- JMP
if ($tnx eq "yes"){&tnxpage;} #この場合のみアフリエイト組込み
if ($tnx eq "no"){
print "Location: $newpage\n";
print "\n";
}
&error("script Error");
}
よろしくお願いいたします。

補足日時：2005/09/29 18:02

この回答へのお礼

おかげさまで、解決いたしました。
vivletさんのおっしゃるとおりでメール本文を作る部分が問題でした。

$yrmail=@fm[6]; @fm[9]=$in{'age'}; @fm[1]=$in{'post'}; @fm[7]=$in{'tel'}; @fm[8]=$in{'fax'};

というようにまとめたら重複部分がなくなりました。
ありがとうございます！

お礼日時：2005/09/29 19:15

No.2 回答者： vivlet 回答日時： 2005/09/30 11:30

＃１です

解決なされたみたいで良かったです。
これからも頑張ってください。

あと、解決なされたなら質問を〆てくださいね。