[mdk-re] Script deleting '[ J T ]' messages from POP3 server

[Henri Bourbon]

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