On 2009-10-05 14:01:58 +0300, Sorin Vijelie wrote:
> Se dau citeva sute de conturi email (format mbox). Foarte multe dintre
> mesaje sunt spam-uri si contin in subj cuvantul SPAM.
> 'mutt -f cont' si comanda 'D' (delete message matching) pentru fiecare
> cont e munca de negru ;)
>
> Alternative ?
ls | while read mbox
do
echo processing mbox $mbox
perl -MEmail::Delete=delete_message -e'
my $m = shift;
delete_message
from => $m,
matching => sub {
my $msg = shift;
$msg->header( "Subject" ) =~ /SPAM/
};' $mbox
done
notes:
0. backup ( + 1 virgin goat sacrifice -- true sysadmins only )
1. sudo cpan Email::Delete
2. daca vrei recursiv, pui in loc de ls un find . -type f -print0 etc
3. in locul tau nu le-as sterge, ci le-as muta intr-un mbox separat
pentru antrenat bayes sau ceva. in fine, ar fi niste linii in plus
pentru asta :)
--
perl -MLWP::Simple -e'print$_[rand(split(q.%%\n.,
get(q{http://cpan.org/misc/japh})))]'
_______________________________________________
RLUG mailing list
[email protected]
http://lists.lug.ro/mailman/listinfo/rlug
