ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Eugeny Bodunov                       2:452/26.44    04 Aug 2000  23:09:48
 To : Marsel Kirsanov
 Subject : Помогите доделать скрипт-почтальона
 -------------------------------------------------------------------------------- 
 

 НННННННННННННННННННННННННННННННННННННН
 
  Копаясь в мыле я заметил, что в Четверг Июль 27 2000 21:46, Marsel Kirsanov
 писал All:
 
  MK> Добрый вечер, All !
 
  MK> Делаю я скрипт рассылки новостей. Скрипт, который берет из формы
  MK> E-mail и заносит в list.txt, я написал. А вот как сделать так чтобы он
  MK> брал адрес E-mail'a из list.txt не знаю; могу только на один послать
  MK> адрес :( Подкорректируйте, пожалуйста...
 
 Вpоде так:
 
  MK> #!/usr/bin/perl
 
 open (IN,<list.txt>) || die "F@#k!!!";
 
  MK> $mailprog = '/usr/sbin/sendmail';
  MK> $from = 'postmaster@al.ru';
  MK> $answer = 'postmaster@al.ru';
  MK> $for = 'zzz';
 
 While ($for) {
   $for = <IN>;
 
  MK>    open (MAIL, "|$mailprog $for") || die "Can't open $mailprog!\n";
  MK>    print MAIL "Subject:\n";
  MK>    print MAIL "From:$from\n";
  MK>    print MAIL "Reply-to:$answer\n";
  MK>    print MAIL "To:$youmail\n";
  MK>    print MAIL "Hовости нашего сервера\n";
  MK>    close (MAIL);
 
 }
 close IN;
 
                 C уважением, Eugeny Bodunov.
 --- GoldED/W32 3.0.1-asa9 SR3
  * Origin: http://gomel.spedia.net (заходите, будет интересно) (2:452/26.44)
 
 

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

Тема:    Автор:    Дата:    Помогите доделать скрипт-почтальона   Marsel Kirsanov   27 Jul 2000 21:46:45   Помогите доделать скрипт-почтальона   Eugeny Bodunov   04 Aug 2000 23:09:48