open で /usr/sbin/sendmail を開いてそのハンドル SEND を使って print 文で処理する方法もある。
#!/usr/bin/perl
our $SENDMAIL = '/usr/sbin/sendmail';
our $ADMIN_EMAIL = 'support@twinkle.cc';
our $X_MAILER = 'Twinkle Networks Auto Sendmailer ver.0.1';
my $mailto = 'someone@mailto.com';
my $subject = 'タイトル';
my $mail_body = 'メール本文';
open(SEND, "| $SENDMAIL -t")
|| &error("Can\'t sendmail to $mailto: $!"); # for exim
print SEND "To: $mailto\n";
print SEND "From: $ADMIN_EMAIL\n";
print SEND "Subject: $subject\n";
print SEND "X-Mailer: $X_MAILER\n";
print SEND "Content-Transfer-Encoding: 7bit\n";
print SEND "Content-Type: text/plain\n\n";
print SEND $mail_body;
close(SEND);
1;
トラックバック URL:
https://perltips.twinkle.cc/trackback/290
from Perl Tips on 2008/01/21(月) 15:31