- 671 名前：デフォルトの名無しさん mailto:sage [2006/12/06(水) 17:34:31 ]
- sendmail のサンプル
sub sendmail {
my $data = shift;
open(F, '| /usr/lib/sendmail -t >/dev/null 2>&1') or die;
print F "From: hoge\@fuga.com\n";
print F "To: moga\@mugu.com\n";
print F "MIME-Version: 1.0\n";
print F "Content-Type: text/html\n";
print F "\n";
print F $data;
close(F);
}
但し /usr/lib/sendmail がなければならない。
(つまりこれは主に UNIX 系 OS 向け。Windows なら Cygwin 環境で動くかも)。
