ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Comoderator of RU.CGI.PERL           2:5020/371.32  13 Nov 2000  13:36:03
 To : nefterin@cityline.ru
 Subject : Moderatorial [*] (Re: Как организовать рассылку?)
 -------------------------------------------------------------------------------- 
 

 ncr> From: "Roman Zavitaev" <nefterin@cityline.ru>
 
 ncr> Использую sendmail.
 ncr> в настоящий момент рассылка на 730 адресов и будет расти (через месяц-два
 ncr> будет 1000 подписчиков)
 ncr> файл-база содержит Имя::e-mail, скрипт имеет цикл
 
 ncr> open(BASE, "/base.txt") || die "no file!";
 ncr> while(<BASE>)
 ncr>  {
 ncr>  ($fio, $email) = split('::');
 ncr> open (MAIL, "|/usr/lib/sendmail -t") || die "Can't open mailprog!\n";
 ncr> chomp ($email);
 ncr> print MAIL "To: $email\n";
 ncr> print MAIL "Subject: news \n\n";
 ncr> print MAIL "$news\n";
 ncr> close(MAIL) or die "can't send e-mail!";
 ncr>  }
 ncr> close(PASS);
 
 ncr> т.е. я организовал цикл по отправке сообщений через обращение за каждым
 ncr> адресом к файлу-базе, отправка 1000 писем занимает таким образом ~7-9
 ncr> минут. попробовал считать все адреса в массив избазы, а затем циклом
 ncr> foreach по массиву отправить почту, результат меня удивил - отправка стала 
 ncr> дольше ~12 минут вопрос: как лучше организовать рассылку?
 
 ncr> Заранее спасибо,
 ncr> Роман.
 
 Оффтопик. В RU.PERL.
 
 -- 
 Artem Chuprina        2:5020/371.32 AKA cmrcp@ran.pp.ru        Артём Чуприна
 Comoderator of FIDOnet conference         Комодератор эхоконференции FIDOnet
                                 RU.CGI.PERL
 
 P.S. Взять нормальный mailing-list manager.
 --- ifmail v.2.14.os-p7-tma3
  * Origin: MemoNet (2:5020/371.32@fidonet)
 
 

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