06/04/30 19:40:04
お世話になりました。730です。
この前、メール本文に送信者名を表示させたいと言うことを相談しました。
で、次のようなスクリプトを書いてみました。
色々試行錯誤してようやく、携帯にもPCにも同様の内容でメールが送れるようになりました。
#!/usr/bin/perl
#
while (<STDIN>) {
$mail .= $_;
}
$head = $mail;
$head =~ s/\n\n(.*)//s;
$body = $1;
print <STDIN>."\n$head\n\nwitten by $ENV{SENDER}\n$body\n";
メール関係のスクリプトを書くのが初心者なので、
もし、このスクリプトだけで、問題点が有ると思われる方がいたら、
アドバイスいただけると幸いです。