From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Date: Mon, 9 Jun 2003 13:58:16 +0700 From: Evgeny Yugov X-Mailer: The Bat! (v1.62r) Business Organization: SCS-900 X-Priority: 3 (Normal) Message-ID: <917038034.20030609135816@scs-900.ru> To: Artem Pastukhov In-Reply-To: <200306091035.07644.past@yam.ru> References: <658346233.20030609111510@scs-900.ru> <200306091035.07644.past@yam.ru> MIME-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Transfer-Encoding: 8bit Subject: [Comm] =?koi8-r?B?UmVbMl06IFtDb21tXSD71dPU0s8g0M/Nz93YIM7V1s7BIQ==?= Sender: community-admin@altlinux.ru Errors-To: community-admin@altlinux.ru X-BeenThere: community@altlinux.ru X-Mailman-Version: 2.0.9 Precedence: bulk Reply-To: community@altlinux.ru X-Reply-To: Evgeny Yugov List-Unsubscribe: , List-Id: List-Post: List-Help: List-Subscribe: , List-Archive: Archived-At: List-Archive: List-Post: Здравствуйте 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=; 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ыша слетает сама...