ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alan Long                            2:5030/1082.72 13 Nov 2000  13:43:53
 To : Roman Zavitaev
 Subject : Как организовать рассылку?
 -------------------------------------------------------------------------------- 
 

 * Originally from Roman Zavitaev (2:5020/400) to All.
 
  RZ> From: "Roman Zavitaev" <nefterin@cityline.ru>
 
  RZ> Использую sendmail.
  RZ> в настоящий момент рассылка на 730 адресов и будет расти (через
  RZ> месяц-два будет 1000 подписчиков)
  RZ> файл-база содержит Имя::e-mail, скрипт имеет цикл
 
  RZ> open(BASE, "/base.txt") || die "no file!";
  RZ> while(<BASE>)
  RZ>  {
  RZ>  ($fio, $email) = split('::');
  RZ> open (MAIL, "|/usr/lib/sendmail -t") || die "Can't open
  RZ> mailprog!\n"; chomp ($email);
  RZ> print MAIL "To: $email\n";
  RZ> print MAIL "Subject: news \n\n";
  RZ> print MAIL "$news\n";
  RZ> close(MAIL) or die "can't send e-mail!";
  RZ>  }
  RZ> close(PASS);
 
  RZ> т.е. я организовал цикл по отправке сообщений через обращение за
  RZ> каждым адресом к файлу-базе, отправка 1000 писем занимает таким
  RZ> образом ~7-9 минут. попробовал считать все адреса в массив избазы,
  RZ> а затем циклом foreach по массиву отправить почту, результат меня
  RZ> удивил - отправка стала дольше ~12 минут
  RZ> вопрос: как лучше организовать рассылку?
 
 В принципе если использовать SMTP (MIME::Lite, MIME::...) то можно сгрупировать 
 e-mail'ы по 15-20 получателей, тогда будет несколько по-проще. Во-вторых можно
 таким-же образом поступить и с помещением нескольких получтелей письма в Bcc:
 
  RZ> Роман.
 
 --
 With best,
      Ъ-·    Ъ
      Е-ЧLaі\і <alan@x-rays.eu.org>
 
 --- timEd/386 1.10+
  * Origin: X - Rays Station (2:5030/1082.72)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор