メール送信の記述のしかた

[上に] [前に] [次に]
たっく [E-Mail] 1999/12/09(木) 07:52:56
初歩的な質問ですみません。「ラウンジ」を使わせていただいています。発言をメール送信する際に、末尾に、１行空けてホームページのアドレスを表示したいだけなのですが、下記をどのように修正したらいいでしょうか。
    # 質問者にメールで知らせる
    $mailto = "";
    open(IN, "$file");
    while (<IN>) {
        if (/^Reply-To:/) {
            chop($_);
            $mailto = $_;
            $mailto =~ s/^Reply-To: //;
        }
        if (/^\t/) {
            last;
        }
    }
    if ($mailto ne "") {
        $report = $mailme.','.$mailto;
     } else {
        $report = $mailme;
     }
    seek(IN, 0, 0);
    $msg = "To: $mailto\n";
    $msg .= "Subject: ラウンジレポート\n";
    $msg .= "\n";
    while (<IN>) {
        $_ =~ s/[\r\n]*$//;
        $_ =~ s/^\.$/. /;
        $_ =~ s/&lt;/</g;
        $_ =~ s/&gt;/>/g;
        $_ =~ s/&amp;/&/g;
        $msg .= "$_\n";
    }
    &jcode'convert(*msg, "jis");
    open(OUT, "| $g_sendmail $report");
    print OUT $msg;
    close(OUT);
    close(IN);
P初心者 1999/12/09(木) 09:21:24
print OUT $msg;の下に
print OUT "\nxxx@yyy.zzz.ne.jp\n";

漢字を使用されるなら
&jcode'convert(*msg, "jis");
の前に（}の下に)
$msg .= "\n漢字hogehoge\n";

P初心者のPはPerlのPですので、あてにならないかも〜
たっく 1999/12/09(木) 09:45:13
[[解決]]
P初心者さん、ありがとうございます。とりあえず下記で成功でした。
print OUT "\nxxx@yyy.zzz.ne.jp\n";
感謝！
[上に] [前に] [次に]