- 735 名前:730 [2006/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"; メール関係のスクリプトを書くのが初心者なので、 もし、このスクリプトだけで、問題点が有ると思われる方がいたら、 アドバイスいただけると幸いです。
|

|