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

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

[Evgeny Yugov]

Здравствуйте All,

Есть список email адресов в файле в столбик... есть тело письма...
нужно разослать всем юзверям из файла имеющееся тело ;)
В идеале в поле TO хорошо б ставить майл юзверя...

ps Скриптами знаю что моня сделать... но думаю есть способ намного
проще.

-- 
With Best regards,
Evgeny
mailto:yugov@scs-900.ru

--
Еж - птица гордая, пока не пнешь, не полетит!

Re: [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

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

[Evgeny Yugov]

Здравствуйте Artem,

Monday, June 9, 2003, 1:35:07 PM, you wrote:

AP> 9 Июнь 2003 08:15, Evgeny Yugov написал:> Здравствуйте All,>> Есть список email адресов в файле в столбик... есть тело> письма... нужно разослать всем юзверям из файла имеющееся тело> ;) В идеале
AP> в поле TO хорошо б ставить майл юзверя...>> ps Скриптами знаю что моня сделать... но думаю есть способ> намного проще.
AP> #!/usr/bi/perl
AP> $message="message.txt";
AP> open(MS , $message) || die " Can't open $message $!";
AP> @message=<MS>;
AP> close MS'while (<>){s/\n//;
AP> s/\r//;
AP> open (MAIL, "|/usr/bin/mail $_") || die "Can't run mail $!";
AP> print  MAIL @message;
AP> close MAIL;
AP> }
AP> Потом сохраняете файл, например как spamsend.pl   :)потом chmod +x spamsend.pl
AP> $ spamsend.pl < mails.txt
AP> Примерно так.
Сенк мыслю понял... но сделал ужо иначе чуток ;o)

-- 
With Best regards,
Evgeny Yugov,
MTS, programmer of Advanced Technologies Departament.
Registered Linux User #316667
mailto:yugov@scs-900.ru

Origin: Хоpошая кpыша слетает сама...

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

[Alexey Tourbin]

[-- Attachment #1: Type: text/plain, Size: 390 bytes --]

On Mon, Jun 09, 2003 at 11:15:10AM +0700, Evgeny Yugov wrote:
> Есть список email адресов в файле в столбик... есть тело письма...
> нужно разослать всем юзверям из файла имеющееся тело ;)
> В идеале в поле TO хорошо б ставить майл юзверя...

cat addr.txt | while read email; do mail $email < message.txt; done

> ps Скриптами знаю что моня сделать... но думаю есть способ намного
> проще.

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]

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

[Evgeny Yugov]

On Mon, 9 Jun 2003 20:34:40 +0400
Alexey Tourbin <at@altlinux.ru> wrote:

AT> On Mon, Jun 09, 2003 at 11:15:10AM +0700, Evgeny Yugov wrote:
AT> > Есть список email адресов в файле в столбик... есть тело письма...
AT> > нужно разослать всем юзверям из файла имеющееся тело ;)
AT> > В идеале в поле TO хорошо б ставить майл юзверя...
AT> 
AT> cat addr.txt | while read email; do mail $email < message.txt; done

О! Елки... а я на перле заморочился... мде... пора учить "матчасть"!
Спасибо за УРОК!

-- 
With Best regards,
Evgeny Yugov,
MTS, programmer of Advanced Technologies Departament.
Registered Linux User #316667
mailto:yugov@scs-900.ru