[mdk-re] Re[3]: [chat] list roolz:)

[Sergey Degtyaryov]

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