メールフォームからの受信メールの表示と改行について

質問

メールフォームで入力していただいた内容を
項目
内容
空行
の繰り返しにしたいのですが、どこを変更すればいいのか分からず困っています。
また[ Date ]などとなっている部分の[]も取ってしまいたいです。
スクリプトのここらへんかな？と思う部分も貼ってみましのたで、どなたかアドバイスいただけるとうれしいです。

[ Date ]
2007/11/10 (Sat) 20:16
[ RemoteHost ]
****************************
[ RemoteAddr ]
*****
[ HttpUserAgent ]
******************
************** [ ]
実際にはこの行にメールタイトルが入ってます。

[ お名前 ]
test
[ 郵便番号 ] test
（以下省略）

//スクリプト

if ($AddArea) {
foreach (0..$#area) {
my $AreaTurn = $area[$_]{'turn'};
my $AreaName = $area[$_]{'name'};
my $AreaVlue = $in{"area$_"};

$AreaName =~ s/<br>//ig;

if ($AreaLine) {
$AreaVlue = &SplitMessage($AreaVlue);
$AreaVlue =~ s/<br>/\r/ig;
}

$AddMail[$AreaTurn] = "[ $AreaName ]\n";
$AddMail[$AreaTurn] .= "$AreaVlue\n";

if ($CsvUse) {
$AreaVlue =~ s/(\r\n|\r|\n)//g;
$AreaName =~ s/<[a-zA-Z][^>]*>//g;
$AreaName =~ s/<\/[a-zA-Z][^>]*>//g;
$AreaTurn2 = sprintf("%03d",$AreaTurn);
$CsvSub{$AreaTurn2} = $AreaName;
$CsvBdy{$AreaTurn2} = $AreaVlue;
}
}
}

if ($AddAttc) {
@attach = ();
$c = 0;
foreach (0..$#attc) {
my $AttcVlue = $in{"attc$_"};
my $AttcName = "$AttcTmp$in{\"attc$_->name\"}";
my $AttcType = $in{"attc$_->type"};
my $AttcTurn = $attc[$_]{'turn'};
my $AttcName2 = $attc[$_]{'name'};

$AttcName = $in{"attc$_\_name"} if $AttcName eq $AttcTmp;
$AttcType = $in{"attc$_\_type"} if !$AttcType;

if ($AreaLine) {
$GetMessage = &SplitMessage($GetMessage) if $GetMessage =~ /<br>/;
}

if ($GetEmail eq $MailAddr[0]) {
$BodyEmail = "";
} else {
$BodyEmail = $GetEmail;
}

$AddMail[$SubNum] = "[ $SubTtl ] \n$GetSubject\n";
$AddMail[$NameNum] = "\n[ $NameColumn ] \n$GetName\n";

if ($KanaFix) {
$AddMail[$KanaNum] = "\n[ $KanaColumn ] \n$GetKana\n\n";
}

$AddMail[$MailNum] = "\n[ $MailColumn ] \n$BodyEmail\n";

$AddMail[$MessNum] = "\n[ $MessColumn ]\n\n";
$AddMail[$MessNum] .= "$GetMessage\n\n";

$MailBody = "[ Date ] \n$NowTime\n";
$MailBody .= "[ RemoteHost ] \n$RemoteHost\n";
$MailBody .= "[ RemoteAddr ] \n$RemoteAddr\n";
$MailBody .= "[ HttpUserAgent ]\n $UserAgent\n";

foreach (@AddMail) {
$MailBody .= $_;
}

$MailBody .= "\n$ScriptVer\n\n";

if ($HeaderFrom) {
$SendFrom = "$GetName <$GetEmail>";
} else {
$SendFrom = $GetEmail;
}

回答No.1

chaimasuka

> 項目
> 内容
> 空行
> の繰り返しにしたい

「項目」、「内容」、というのは、具体的に何をさすのでしょうか？

> [ Date ]などとなっている部分の[]も取ってしまいたい

$MailBody = "[ Date ] \n$NowTime\n";
を、
$MailBody = "Date \n$NowTime\n";
とすればよい

お礼

[ 郵便番号 ]test
の例でいうと
項目というのは　[ 郵便番号 ]
内容というのは　testということをさしたつもりでした。

コメントいただいた部分を直していたら、要領が分かって他の部分も直すことができました。ありがとうございます。