Большой Воронежский Форум
» Веб-дизайн>Вопрос знатокам PERL
acb 09:15 22.10.2003
Кто ответит на небольшой вопрос:

имеется скрипт почты, что-то типа

open (ML,$MAIL_PROGRAM) or return;
print ML "To: $email\n";
print ML "From: \"$myname\" \<$mymail\>\n";
print ML "Cc: \"$myname\" \<$mymail\>\n";
print ML "Subject: $subj\n";
print ML "Return-Path: <$mymail>\n";
print ML "Reply-To: $mymail\n";
print ML "Текст письма\n";
close (MZ);

и имеется файл, например, file.zip

Как сделать так, чтобы при отправке письма файл file.zip автоматически прикреплялся к этому письму?

Заранее благодарю за ответ. [Ответ]
DMakeev 11:48 25.10.2003
Читай rfc2821. [Ответ]
acb 12:03 25.10.2003

Сообщение от :
Первоначальное сообщение от DMakeev
Читай rfc2821.

Спасибо! Только прошу уточнить,
что такое rfc2821 и где про это почитать. [Ответ]
DMakeev 12:21 25.10.2003
RFC2821 - официальное описание протокола SMTP, с которым тебе и предстоит разобраться С английским дружишь? Если да, то http://www.faqs.org/rfcs/rfc2821.html (если не испугают 79 страниц буржуинского диалекта )

Если лень-матушка, то могу посоветовать сие:
http://php.spb.ru/php/mail.html Написано про PHP, но, думаю. под PERL перелопатить не сложно. [Ответ]
acb 16:19 25.10.2003
Благодарю!

Придется почитать.
Потом доложу о результатах. [Ответ]
DMakeev 17:00 25.10.2003
acb Успехов. [Ответ]
acb 08:39 26.10.2003
Похоже разобрался.
Все довольно просто:

use MIME::Lite;

тут само письмо

### Attach:
$msg->attach(Type =>'application/x-zip-compressed',
Path =>'путь до/file.zip',
Filename =>'file.zip'
);

MIME::Lite->send("sendmail", "/usr/sbin/sendmail -t");
$msg->send();

Похоже, что так. [Ответ]
Вверх