Вариант первый
Итак, первый вариант такого скрипта, самый простой:
1.| open (SENDMAIL, "|/usr/sbin/sendmail -t") 2.| or die "sendmail not ready"; 3.| print SENDMAIL "From: John Doe <jd\@domain.com>\n"; 4.| print SENDMAIL "To: Frank Smith <fs\@domain.com>\n"; 5.| print SENDMAIL "Reply-To: Frank Smith
<fs\@domain.com>\n"; 6.| print SENDMAIL "Subject: Test.\n\n"; 7.| print SENDMAIL "It's just test!!!"; 8.| close (SENDMAIL)
or warn "sendmail didn't close nicely";
На первый взгляд, ничего сложного. Но давайте присмотримся повнимательнее.
Вначале открываем файл sendmail как поток. Другими словами, подготавливаем программу sendmail к приему данных и присваиваем ей handle SENDMAIL. Надеюсь, вы заметили, что в конце строки нет точки с запятой. Она стоит на следующей строке, так как там стоит условие аварийного завершения скрипта в случае ошибки открытия файла.
В третьей строке мы передаем в sendmail строку "From: your\@email.com\n". Что это значит? Давайте разбирать по порядку. Данная строка содержит информацию, сообщающую почтовому серверу, от кого получено данное письмо. При формировании письма почтовый сервер поместит в поле От: имя и адрес, взятые из этой строки.
Четвертая, пятая и шестая строки, как вы, наверное, догадались, указывают серверу адресата (то есть того, кому нужно ответить на данное письмо) и тему письма.
Седьмая строка скрипта содержит тело сообщения - собственно содержание письма. Таких строк может быть несколько.
Наконец, последняя строка является признаком конца письма и закрывает программу sendmail. В случае некорректного закрытия скрипт запишет предупреждение в лог-файл сервера.
Обратите внимание на то, что перед символом @ обязательно должна стоять обратная косая черта (\). Иначе знак @ будет ошибочно принят за признак массива, что вызовет аварийное завершение скрипта.
Вот и все - письмо отослано. Но вот вопрос: что за \n стоит в конце каждой строки, а в шестой строке - даже дважды? Эта последовательность обозначает перевод строки в Unix-подобных системах. В данном же случае она представляет собой ни что иное как конец команды. В шестой она повторяется дважды, чтобы сообщить серверу, что команды закончились и дальше идет тело письма.
Вариант второй
Второй вариант скрипта для отправки писем является модульным. Его несколько сложнее устанавливать, зато удобнее использовать.
Для того чтобы пользоваться этим скриптом дома, вам необходимо установить модуль MIME::Lite, который, как и многие другие модули для Перла, можно скачать из архива по адресу .
Скачав и установив MIME::Lite, приступаем к разбору скрипта:
1.| use MIME::Lite; 2.| $msg = MIME::Lite->new ( 3.| From =>'John Doe <jd@domain.com>', 4.| To =>'Frank Smith <fs@domain.com>', 5.| Subject =>'Test.', 6.| Data =>"It's just test!!!" 7.| ); 8.| $msg->send;
Первая строка подключает необходимый нам модуль MIME::Lite. Вторая создает объект сообщения с параметрами, указанными в строках 3-7.
Назначение третьей, четвертой, пятой и шестой строк нам уже известно из предыдущего скрипта. С небольшими изменениями: строки взяты не в двойные, а в одинарные кавычки. Впрочем, это не принципиально. Кроме того, отсутствует обратная косая черта перед символом @ (если строки взяты в двойные кавычки, ее нужно поставить), и в конце строк нет \n. Вот и вся разница.
Но за все приходится платить. Этот вариант нагляднее - но у нас появилась восьмая строка. В ней модулю даются указания о том, что письмо сформировано и что нужно его отправить.
Иногда возникает необходимость отправить сообщение без sendmail, с помощью сторонней программы. В этом случае скрипт нужно несколько изменить. Например, можно использовать nms_sendmail. На его примере и покажем, как это сделать.
8. | $^X =~ /(.+)/ or die; 9. | $mailprog = qq|$1 -wT "nms_sendmail" -oi -t|; 10.| open (SENDMAIL, "|$mailprog"); 11.| $msg->print (\*SENDMAIL); 12.| close (SENDMAIL);
Вместо восьмой строки пишем код, указанный выше. И добавляем строки из документации к nms_sendmail. Как видим, все просто.
