Создание серверных приложений на языке PERL




Почтовые рассылки



Почтовые рассылки

чтобы средствами Perl можно было отсылать почту, необходимо чтобы на сервере была установленна программа "sendmail". Версию под Windows пожно скачать из раздела "Download".

что делаем. Открываем функцией Open программу, и ей на вход подаем нашу почтовую форму:

open (MAIL,"|/usr/lib/sendmail -t"); print MAIL "To: to\@e.mail\n"; print MAIL "From: from\@e.mail\n"; print MAIL "Subject: Subject\n\n"; print MAIL "Body\n"; close MAIL;

Как и HTTP запрос, Email запрос состоит из заголовка и тела. Разберем подробнее заголовок:
To: - Email адрес получателя письма;
From: - Email адрес отправителя;
Subject: - тема.
Как и в HTTP запросе, тело от заголока отделяется пустой строкой.

А Вот форма более продвинутого содержания:

print

В общем, почти то же самое, только информации передается побольше и добавлено поле Cc - адресат скрытой копии.

Еще один интересный код, дает возможность передавать вложенные файлы:

$to = '"Your Name" '; $recip = 'yourname@yourdomain.com'; $from = '"Your Name" '; $subject = "This is the subject"; $mainbody = "This is the main body\n"; $attachment = "This is an attachment\n"; $message = MakeMessage($to, $from, $subject, $mainbody, $attachment); open (MAIL, "|sendmail -t"); print MAIL $message; close (MAIL); sub MakeMessage { # make a composite message containing a main body and one attachment my ($to, $from, $subject, $mainbody, $attachment) = @_; my $message =

Содержание Назад Вперед