From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: From: Henri Bourbon X-Mailer: The Bat! (v1.51) Personal X-Priority: 3 (Normal) Message-ID: <310310665.20010903131615@yahoo.com> To: Sergey Degtyaryov In-Reply-To: <19636721676.20010902221233@globetravel.spb.ru> References: <16017926462.20010830204004@mail.ru> <7134131578.20010831070326@inbox.ru> <01083113363203.01534@alex> <4135652038.20010902215443@globetravel.spb.ru> <19636721676.20010902221233@globetravel.spb.ru> MIME-Version: 1.0 Content-Type: text/plain; charset=koi8-r Content-Transfer-Encoding: 8bit X-Return-Path: npecca@yahoo.com X-MDaemon-Deliver-To: mandrake-russian@altlinux.ru Subject: [mdk-re] Script deleting '[ J T ]' messages from POP3 server 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 List-Help: List-Post: List-Subscribe: , List-Id: Linux-Mandrake RE / ALT Linux discussion list List-Unsubscribe: , List-Archive: Date: Mon Sep 3 13:13:13 2001 X-Original-Date: Mon, 3 Sep 2001 13:16:15 +0400 Archived-At: List-Archive: List-Post: Sunday, September 02, 2001, 22:12:33, Sergey Degtyaryov wrote: SD>> my $subj = join '', grep /Subject/, @{$pop->get($_)}; > следует читать как > my $subj = join '', grep /Subject/, @{$pop->top($_)}; > Еще раз надеюсь что это сэкономит Вам трафик. Да, get() было совершенно бессмысленно. Но, увы, для тех писем, к-рые шлет mailman, и top() -- это экономия сомнительная. Для примера: в вашем письме, на к-рое я отвечаю, ~480 байт тела и ~2200 байт заголовков. Т. е. экономим мы посредством вашего скрипта (или посредством фильтра в мэйлере, к-рый сделает то же самое проще, быстрее, безопаснее, и к-рый не нужно запускать каким-нибудь кроном и т. п., мэйлер сам его запустит, когда нужно) около 20% трафика. Не густо. Повторю, это в случае с вашим письмом. Кстати, /Subject/ может найти Subject где угодно. А может не найти заголовок Subject там, где нужно. RFC822 не запрещает писать 'sUbJeCT:'. Если уж искать, то /^subject\b/i -- HB