Как отправить почтовое сообщение из Perl скрипта |
[исправить] |
$cmd_mail="/usr/sbin/sendmail -t";
open (SENDMAIL, "|$cmd_mail") || die "ERROR: Can not run sendmail";
print SENDMAIL "MIME-Version: 1.0\n";
print SENDMAIL "Content-Type: text/plain; charset=\"koi8-r\"\n";
print SENDMAIL "Content-Transfer-Encoding: 8bit\n";
print SENDMAIL "To: $to_email\n";
print SENDMAIL "From: Nobody <nobody\@$localhost>\n";
print SENDMAIL "Subject: $subject\n\n";
print SENDMAIL $message . "\n";
close (SENDMAIL);
|
|
|
26.08.2001
Ключи: sendmail, text, tex, charset, perl, socket, pri, mime, mail, encoding, print
/ Лицензия: CC-BY
|
Раздел: Корень / Программисту и web-разработчику / Perl / Работа с электронной почтой |