|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Victor Frolov 2:5004/55.116 30 Dec 2003 10:51:24 To : All Subject : фильтр на рассылку -------------------------------------------------------------------------------- Всем привет! Hарод, подскажите, плз, как бы лучше отфильтровать subscrib-овскую рассылку, т.е. прибить приаттаченные баннеры, рекламму и т.д. Может у кого универсальное решение имеется ? пока используется такой вариант, но это слишком грубо: foreach $mstr (@mbody) { print POST $mstr if (not($mstr =~ /=["']?http:/)); } --- ifmail v.2.15 * Origin: TC Oblauto InterNetNews server (2:5004/55.116@fidonet) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/256647bc7bae0.html, оценка из 5, голосов 10
|