подумавши и посоветовавшись с (ondr, спасибо!), сделал так:
создаются списки по 50 мыл и через крон запускаются черз определенное время. также к каждому списку создается и текст нужного сообщения. запускаемый скрипт ищет файлы с разширением "*.txt" берет по его номеру сообщение и разссылает. после чего соответственно оба файла удаляются.
вопрос в следующем. как проверить на наличие файлов "*.txt".
я тут набросал, но что то не получается...
#!/usr/bin/perl -w
##################################
$mailprog="/usr/sbin/sendmail -t";
##################################
@filename = glob("*.txt");
if ($filename ne "") {
($num,undef)=split(/\\./,$filename[0]);
open (MSG, "$num.msg");
@msg=;
close (MSG);
$one=shift(@msg);
open(AL, "$filename[0]");
foreach () {
open (MAIL, "|$mailprog");
print MAIL "To: $_";
print MAIL "From: my\\@mail\\n";
print MAIL "Content-Type: text/html; charset=windows-1251\\n";
print MAIL "Subject: $one\\n";
print MAIL @msg;
}
close (AL);
unlink <$num.txt>;
unlink <$num.msg>;
}
else { print "no file"; }