[mdk-re] Re: [mdk-re] Re: [mdk-re] [JT]Предложеие порассылке.

[Sergey Degtyaryov]

Доброго времени суток, Alex,

Friday, August 31, 2001, 1:36:32 PM, Вы сказали буквально следующее

AAP> А меня, к примеру, интерессует серверные приложения и просто приложения. Это
AAP> означает, что я должен помимо этого скачивать еще 500 килов цитат и флейма?
AAP> А разработчики будут публиковаться там где они хотят.

Алекс, надеюсь, я несколько помогу Вам.
Этот немудреный скрипт удаляет с POP3-сервера письма с [JT] в
заголовке.

Модуль Net::POP3 идет в поставке perl кажется.
Если нет - установите.
Как Вы будете его запускать - незнаю, но надеюсь, несколько облегчу
Вашу участь.

#!/usr/bin/perl
use Net::POP3;

$host = 'yor.pop3.host';
$user = 'login';
$password='pass';
$badstring = '[JT]';

$pop = Net::POP3->new($host);
$count = $pop->login($user, $password);

for (0..$count) {
my $subj = join '', grep /Subject/, @{$pop->get($_)};
$pop->delete($_) if ($subj =~ /$badstring/i);
}
$pop->quit;
exit;


-- 
Rgds, maga, maga на mail.ru