06/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 環境で動くかも)。