[Comm] Шустро помощь нужна!

[Artem Pastukhov]

9 Июнь 2003 08:15, Evgeny Yugov написал:
> Здравствуйте All,
>
> Есть список email адресов в файле в столбик... есть тело
> письма... нужно разослать всем юзверям из файла имеющееся тело
> ;) В идеале в поле TO хорошо б ставить майл юзверя...
>
> ps Скриптами знаю что моня сделать... но думаю есть способ
> намного проще.

#!/usr/bi/perl

$message="message.txt";
open(MS , $message) || die " Can't open $message $!";
@message=<MS>;
close MS'
while (<>)
{
s/\n//;
s/\r//;
open (MAIL, "|/usr/bin/mail $_") || die "Can't run mail $!";
print  MAIL @message;
close MAIL;
}

Потом сохраняете файл, например как spamsend.pl   :)
потом chmod +x spamsend.pl

$ spamsend.pl < mails.txt


Примерно так.



-- 
 С уважением,
Артем Пастухов          past(at)yam.ru
 ЯМ Интернешнл         http://www.yam.ru