From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <maga@globetravel.spb.ru>
From: Sergey Degtyaryov <maga@globetravel.spb.ru>
X-Mailer: The Bat! (v1.39) Educational
X-Priority: 3 (Normal)
Message-ID: <3743.010525@globetravel.spb.ru>
To: Serge Skorokhodov <mandrake-russian@altlinux.ru>
In-reply-To: <19213145572.20010525150950@pisem.net>
References: <19213145572.20010525150950@pisem.net>
Mime-Version: 1.0
Content-Type: text/plain; charset=koi8-r
Content-Transfer-Encoding: 8bit
Subject: [mdk-re] Re[3]: [chat]  list roolz:)
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: Fri May 25 17:46:11 2001
X-Original-Date: Fri, 25 May 2001 17:51:10 +0400
Archived-At: <http://lore.altlinux.org/community/3743.010525@globetravel.spb.ru/>
List-Archive: <http://lore.altlinux.org/community/>
List-Post: <mailto:mandrake-russian@linuxteam.iplabs.ru>

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

25.05.2001 в 16:09 Вы сказали буквально следующее:

SS> К участникам, пользующимся TB! (таких, знаю, есть:). Как бы
SS> составить регулярное выражение, удаляющее все "Re:" и "[mdk-re]",
SS> кроме одной пары? Тогда наши ответы будут "очищать" рассылку!
SS> Сам создать не возьмусь:(

#!/usr/bin/perl
$subj = 'Re: [mdk-re] RE(2): [mdk-re] [mdk-re] Re: Re: [mdk-re] subj';
print "$subj\n";
$subj =~ s/\[mdk-re\]|re(.*?):|\s+//gi;
$subj = '[mdk-re] Re: '.$subj;
print "$subj\n";
exit;
Re: [mdk-re] RE: [mdk-re] [mdk-re] Re: Re: [mdk-re] subj
[mdk-re] Re: subj

Получается:

Re: [mdk-re] RE(2): [mdk-re] [mdk-re] Re: Re: [mdk-re] subj
[mdk-re] Re: subj

     \\|||//
     ( O O )      С уважением, Сергей
-oOOO--(_)--OOOo---------------------------------