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

[Sergey Degtyaryov <maga@globetravel.spb.ru>]

Доброго времени суток, 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



From maga@globetravel.spb.ru  Sun Sep  2 22:03:59 2001
Return-Path: <maga@globetravel.spb.ru>
Delivered-To: mandrake-russian@localhost.ru.net
Received: from beep.ru (www.beep.ru [212.188.13.192])
	by linux.ru.net (Postfix) with SMTP id 1C2B816F1
	for <mandrake-russian@altlinux.ru>; Sun,  2 Sep 2001 22:03:59 +0400 (MSD)
Received: from 212.48.199.5 by beep.ru with SMTP id AA23691 for
 mandrake-russian@altlinux.ru; Sun, 2 Sep 2001 22:06:43 +0400
 (MSD)
From: Sergey Degtyaryov <maga@globetravel.spb.ru>
X-Mailer: The Bat! (v1.53d) UNREG / CD5BF9353B3B7091
X-Priority: 3 (Normal)
Message-ID: <19636721676.20010902221233@globetravel.spb.ru>
To: Sergey Degtyaryov <mandrake-russian@altlinux.ru>
In-Reply-To: <4135652038.20010902215443@globetravel.spb.ru>
References: <16017926462.20010830204004@mail.ru>
 <7134131578.20010831070326@inbox.ru> <01083113363203.01534@alex>
 <4135652038.20010902215443@globetravel.spb.ru>
MIME-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Content-Length: 330
Subject: [mdk-re] =?koi8-r?B?UmU6IFttZGstcmVdIFtKVF3w0sXEzM/WxcnFINDP0sHT09nMy8Uu?=
Sender: mandrake-russian-admin@altlinux.ru
Errors-To: mandrake-russian-admin@altlinux.ru
X-BeenThere: mandrake-russian@altlinux.ru
X-Mailman-Version: 2.0
Precedence: bulk
Reply-To: mandrake-russian@altlinux.ru
X-Reply-To: Sergey Degtyaryov <maga@globetravel.spb.ru>
List-Help: <mailto:mandrake-russian-request@altlinux.ru?subject=help>
List-Post: <mailto:mandrake-russian@altlinux.ru>
List-Subscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=subscribe>
List-Id: Linux-Mandrake RE / ALT Linux discussion list <mandrake-russian.altlinux.ru>
List-Unsubscribe: <http://altlinux.ru/mailman/listinfo/mandrake-russian>,
	<mailto:mandrake-russian-request@altlinux.ru?subject=unsubscribe>
List-Archive: <http://altlinux.ru/pipermail/mandrake-russian/>
Date: Sun Sep  2 22:04:00 2001
X-Original-Date: Sun, 2 Sep 2001 22:12:33 +0400

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

Sunday, September 02, 2001, 9:54:43 PM, Вы сказали буквально следующее

SD> my $subj = join '', grep /Subject/, @{$pop->get($_)};

следует читать как

my $subj = join '', grep /Subject/, @{$pop->top($_)};

Еще раз надеюсь что это сэкономит Вам трафик.
-- 
Rgds, maga, maga@mail.ru