создать сайт:три письма на Perl'

Те, кто имел дело с Perl, знают, что написание на этом мощном языке программирования скрипта для создания и отправки писем - для начинающего дело достаточно сложное. Мы рассмотрим три варианта таких скриптов

Вариант первый

Итак, первый вариант такого скрипта, самый простой:

1. | open (SENDMAIL, "|/usr/sbin/sendmail -t")
2. | or die "sendmail not ready";
3. | print SENDMAIL "From: John Doe \n";
4. | print SENDMAIL "To: Frank Smith \n";
5. | print SENDMAIL "Reply-To: Frank Smith \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, который, как и многие другие модули для Перла, можно скачать из архива по адресу http://search.cpan.org/.

Скачав и установив MIME::Lite, приступаем к разбору скрипта:

1. | use MIME::Lite;
2. | $msg = MIME::Lite->new (
3. | From =>'John Doe ',
4. | To =>'Frank Smith ',
5. | Subject =>'Test.',
6. | Data =>"It's just test!!!"
7. | );
8. | $msg->send;

Первая строка подключает необходимый нам модуль MIME::Lite. Вторая создает объект сообщения с параметрами, указанными в строках 3-7. Назначение третьей, четвертой, пятой и шестой строк нам уже известно из предыдущего скрипта. С небольшими изменениями: строки взяты не в двойные, а в одинарные кавычки. Впрочем, это не принципиально. Кроме того, отсутствует обратная косая черта перед символом @ (если строки взяты в двойные кавычки, ее нужно поставить), и в конце строк нет \n. Вот и вся разница. Но за все приходится платить. Этот вариант нагляднее - но у нас появилась восьмая строка. В ней модулю даются указания о том, что письмо сформировано и что нужно его отправить.

Иногда возникает необходимость отправить сообщение без sendmail, с помощью сторонней программы. В этом случае скрипт нужно несколько изменить. Например, можно использовать nms_sendmail. На его примере и покажем, как это сделать.

1. | $^X =~ /(.+)/ or die;
2. | $mailprog = qq|$1 -wT "nms_sendmail" -oi -t|;
3. | open (SENDMAIL, "|$mailprog");
4. | $msg->print (\*SENDMAIL);
5. | close (SENDMAIL);

Вместо восьмой строки пишем код, указанный выше. И добавляем строки из документации к nms_sendmail. Как видим, все просто

Третий вариант

Наконец, рассмотрим последний вариант. Иногда хочется (или приходится) работать с сервером напрямую, без промежуточных программ. Тогда можно применить способ, описанный ниже.

1. | use IO::Socket;
2. | my $socket = IO::Socket::INET->new ("127.0.0.1:25");
3. | defined $socket or die "ERROR: $!";
4. | $socket->print ("HELO1512");
5. | $r = <$socket>;
6. | $socket->print ("MAIL FROM:John Doe 1512");
7. | $r = <$socket>;
8. | $socket->print ("RCPT TO:Frank Smith 1512");
9. | $r = <$socket>;
10. | $socket->print ("DATA1512");
11. | $r = <$socket>;
12. | $socket->print ("From:John Doe \nTo:Frank Smith \nSubject:Test. \n\nIt's just test!!!1512");
13. | $r = <$socket>;
15. | $socket->print ("\.1512");
16. | $r = <$socket>;
18. | $socket->print ("QUIT1512");
19. | $r = <$socket>;

Данный листинг демонстрирует работу с соккетами. Процедура эта непростая, так что обычно стараются обойтись без нее. Но мы для полноты картины рассмотрим и этот вариант отправки писем. Итак, приступим. Первая строка аналогична предыдущему примеру - с той лишь разницей, что мы используем другой модуль. Вторая строка создает объект соккета, т. е. соединение с компьютером, IP-адрес которого 127.0.0.1, на 25-й порт. Третьей строкой мы проверяем, установлено ли соединение. Если соединение не установлено, происходит аварийное завершение скрипта. Теперь - самое главное. В предыдущих примерах мы не формировали заголовок письма - это автоматически делала программа sendmail. Но здесь придется все прописывать собственноручно, в том числе и заголовок. В четвертой строке серверу передается текст "HELO1512". Это означает, что мы готовы к передаче данных. В пятой строке читаем ответ сервера. Это необходимо для корректного общения с сервером и обработки ошибок (здесь мы это рассматривать не станем - все подробно описано в спецификации протокола). Такая же процедура выполняется после каждой команды серверу. В шестой строке серверу передается информация о том, от кого поступило письмо; в восьмой - кому это письмо нужно отослать. Внимательно посмотрите на эти строки. Они отличаются от тех, что мы использовали ранее,- потому что мы общаемся с сервером на прямую. В десятой строке серверу сообщается о том, что мы готовы передавать тело письма. Под телом письма подразумевается не только то, что будет отображаться на экране получателя, но и заголовок. Давайте разобьем эту строку на несколько частей и рассмотрим их более подробно:

1. From:John Doe \n
2. To:Frank Smith \n
3. Subject:Test.\n\n
4. LIt's just test!!!1512

И еще один немаловажный момент. В конце каждой команды ставится последовательность 1512, которая сообщает серверу об окончании данной команды.

Вот и все. Надеюсь, что помог решить некоторые проблемы тем, кто, начав изучать Perl, уже успел столкнуться с несколькими подводными камнями. В свое время мне никто толком не мог объяснить, как сделать то или другое. Теперь стараюсь помогать тем, у кого возникают вопросы :-)…

Источник: web.rbes.ru

&npbs;